;********************** ;* RoboTask Task file * ;* Do not edit! * ;********************** [Root] ActionAfterRun=INTEGER|0 Actions=FOLDER Automat=INTEGER|-1 CatID=INTEGER|565106205 ContinueOnError=INTEGER|0 Events=FOLDER ExternalName=STRING|"Task3" Hide=INTEGER|0 ID=INTEGER|1531003466 Name=STRING|"Monitor Files To upload" Priority=INTEGER|3 RunOnClose=INTEGER|0 RunOnStartup=INTEGER|0 ToLog=INTEGER|3 [Actions] Action1=FOLDER Action10=FOLDER Action11=FOLDER Action12=FOLDER Action13=FOLDER Action14=FOLDER Action15=FOLDER Action2=FOLDER Action3=FOLDER Action4=FOLDER Action5=FOLDER Action6=FOLDER Action7=FOLDER Action8=FOLDER Action9=FOLDER [Actions\Action1] ActionID=STRING|"A_TASKS_DISABLE" Enabled=INTEGER|-1 Name=STRING|"Disable Task ""Monitor Files To upload""" Params=FOLDER [Actions\Action1\Params] taskid=STRING|"1531003466" [Actions\Action10] ActionID=STRING|"A_DIALOG_MESSAGE" Enabled=INTEGER|0 Name=STRING|"Show ""{File_to_upload}""" Params=FOLDER [Actions\Action10\Params] icon=STRING|"1" msg0=STRING|"{File_to_upload}" msg1=STRING|"{FTP_path}" msgcount=STRING|"2" playsound=STRING|"0" showmessage=STRING|"1" [Actions\Action11] ActionID=STRING|"A_LOOP_END" Enabled=INTEGER|-1 Name=STRING|"End Loop" [Actions\Action12] ActionID=STRING|"A_FILE_DELETE" Enabled=INTEGER|-1 Name=STRING|"Delete File" Params=FOLDER [Actions\Action12\Params] Count=STRING|"1" deletedirs=STRING|"0" file0=STRING|"c:\filestoupload.txt" subdir=STRING|"0" ToRecycleBin=STRING|"0" [Actions\Action13] ActionID=STRING|"A_VARIABLES_REMOVE" Enabled=INTEGER|-1 Name=STRING|"Remove variable ""FTP_PATH""" Params=FOLDER [Actions\Action13\Params] varname=STRING|"FTP_PATH" [Actions\Action14] ActionID=STRING|"A_VARIABLES_REMOVE" Enabled=INTEGER|-1 Name=STRING|"Remove variable ""FILE_TO_UPLOAD""" Params=FOLDER [Actions\Action14\Params] varname=STRING|"FILE_TO_UPLOAD" [Actions\Action15] ActionID=STRING|"A_TASKS_ENABLE" Enabled=INTEGER|-1 Name=STRING|"Enable Task ""Monitor Files To upload""" Params=FOLDER [Actions\Action15\Params] taskid=STRING|"1531003466" [Actions\Action2] ActionID=STRING|"A_FTP_LOGON" Enabled=INTEGER|-1 Name=STRING|"FTP Log On" Params=FOLDER [Actions\Action2\Params] anonymous=STRING|"1" host=STRING|"localhost" passive=STRING|"1" password=STRING|"42310383162884337286400984055142142" port=STRING|"21" username=STRING|"anonymous" [Actions\Action3] ActionID=STRING|"A_LOOP_TEXT" Enabled=INTEGER|-1 Name=STRING|"Text Loop" Params=FOLDER [Actions\Action3\Params] destvar=STRING|"FILE_TO_UPLOAD" file=STRING|"c:\filestoupload.txt" linecount=STRING|"0" sourcetext=STRING|"0" [Actions\Action4] ActionID=STRING|"BASIC_SCRIPT" Enabled=INTEGER|-1 Name=STRING|"Basic Script" Params=FOLDER [Actions\Action4\Params] line00000=STRING|"' This scrit removed ""crm20"" from path" line00001=STRING|"' and lead ""\"" if exists" line00002=STRING|"' assign value to FTP_path variable" line00004=STRING|"Sub Main" line00005=STRING|" Dim s As String" line00007=STRING|" s = RoboTaskApp.ExpandText(""{ExtractFilePathNoDrive({File_To_Upload})}"")" line00009=STRING|" s = Replace(s,""crm20"","""")" line00011=STRING|" If Left(s,1) = ""\"" Then" line00012=STRING|" s = Replace( s,""\"","""",1,1)" line00013=STRING|" End If" line00015=STRING|" RoboTaskApp.SetUserVariable(""FTP_path"",s)" line00016=STRING|"End Sub" linecount=STRING|"17" source=STRING|"0" [Actions\Action5] ActionID=STRING|"A_FLOW_IF" Enabled=INTEGER|-1 Name=STRING|"If Then" Params=FOLDER [Actions\Action5\Params] case=STRING|"0" operator=STRING|"8" type=STRING|"0" value1=STRING|"{FTP_PATH}" [Actions\Action6] ActionID=STRING|"A_FTP_CREATEFOLDER" Enabled=INTEGER|-1 Name=STRING|"FTP Create Folder" Params=FOLDER [Actions\Action6\Params] folder=STRING|"{FTP_PATH}" [Actions\Action7] ActionID=STRING|"A_FLOW_ENDIF" Enabled=INTEGER|-1 Name=STRING|"End If" [Actions\Action8] ActionID=STRING|"A_FTP_UPLOAD" Enabled=INTEGER|-1 Name=STRING|"FTP Upload" Params=FOLDER [Actions\Action8\Params] file=STRING|"{FILE_TO_UPLOAD}" folder=STRING|"{FTP_PATH}" [Actions\Action9] ActionID=STRING|"BASIC_SCRIPT" Enabled=INTEGER|-1 Name=STRING|"Basic Script" Params=FOLDER [Actions\Action9\Params] line00000=STRING|"Sub Main" line00001=STRING|" Dim magent" line00002=STRING|" Dim b,x" line00003=STRING|" Dim windir As String" line00004=STRING|" Dim f As String" line00006=STRING|" f = RoboTaskApp.ExpandText(""{extractfilename({file_to_upload})}"")" line00007=STRING|" windir = RoboTaskApp.ExpandText(""{windir}"")" line00008=STRING|" Set magent=CreateObject(""Agent.Control.2"")" line00009=STRING|" magent.Connected=True" line00011=STRING|" magent.Characters.Load(""My"", windir+""\msagent\chars\merlin.acs"")" line00013=STRING|" Set b=magent.Characters.Character(""My"")" line00014=STRING|" b.Show" line00015=STRING|" b.Speak ""File ""+ f + "" has been uploaded""" line00016=STRING|" Wait 5" line00017=STRING|" b.Play(""Hide"")" line00018=STRING|" Wait 3" line00019=STRING|"End Sub" linecount=STRING|"21" source=STRING|"0" [Events] Event1=FOLDER [Events\Event1] Enabled=INTEGER|-1 EventID=STRING|"E_FILE_MONITOR" Params=FOLDER [Events\Event1\Params] chg=STRING|"1" chga=STRING|"1" chgsl=STRING|"1" chgsm=STRING|"1" chgtl=STRING|"1" chgtm=STRING|"1" del=STRING|"0" folder1=STRING|"C:\crm20" foldercount=STRING|"1" id=STRING|"8CEBVWTDC" incmask=STRING|"*.*" interval=STRING|"15" listmode=STRING|"1" mon_files=STRING|"1" mon_folders=STRING|"0" new=STRING|"1" onelist=STRING|"c:\filestoupload.txt" saveresults=STRING|"1" subfolders1=STRING|"1"