Code: Select all
;*****************************
;* RoboTask Task file
;* Do not edit in text editor!
;*****************************
[Root]
ActionAfterRun=INTEGER|0
Actions=FOLDER
Automat=INTEGER|-1
CatID=INTEGER|661131612
Comment=STRINGLIST
ContinueOnError=INTEGER|0
DisableOnError=INTEGER|0
DoNotStopWhenShutdown=INTEGER|0
ExternalName=STRING|"Task19"
Hide=INTEGER|0
ID=INTEGER|1541574132
LogOnAsUser=INTEGER|1
Name=STRING|"ReName Folder"
OnErrorTaskID=INTEGER|0
Priority=INTEGER|3
RestrictRESTAPIAccess=INTEGER|0
RunOnClose=INTEGER|0
RunOnStartup=INTEGER|0
StepPause=INTEGER|0
ToLog=INTEGER|3
UnicodeFormat=INTEGER|1
WriteGeneralLog=INTEGER|0
[Actions]
Action1=FOLDER
[Actions\Action1]
ActionID=STRING|"A_SCRIPT_VBSCRIPT"
Enabled=INTEGER|-1
Name=STRING|"VB Script"
Params=FOLDER
[Actions\Action1\Params]
expandvars=STRING|"0"
line00000000=STRING|"Sub RenameFolder(OrgPath,NewPath)"
line00000002=STRING|" Set FS = CreateObject(""Scripting.FileSystemObject"")"
line00000003=STRING|" If FS.FolderExists(OrgPath) Then"
line00000004=STRING|" LogMessage(""Renaming folder "" + orgPath + "" -> "" + NewPath)"
line00000005=STRING|" FS.MoveFolder OrgPath, NewPath"
line00000006=STRING|" Else"
line00000007=STRING|" LogMessage(""The folder "" + OrgPath + "" does not exist"")"
line00000008=STRING|" End If"
line00000009=STRING|"End Sub"
line0000000B=STRING|"Path1 = ""C:\Users\redwa\Documents\RoboTask\TaskBackup"""
line0000000C=STRING|"Path2 = ""C:\Users\redwa\Documents\RoboTask\DeleteMe"""
line0000000E=STRING|"LogMessage(""Original Folder Name: "" + Path1)"
line0000000F=STRING|"LogMessage(""New Folder Name: "" + Path2)"
line00000010=STRING|"RenameFolder Path1,Path2"
linecount=STRING|"17"
savescript=STRING|"0"