Jump to content

rgaspar

Members
  • Posts

    3
  • Joined

  • Last visited

Everything posted by rgaspar

  1. Hello, Congratulations, good script robocopygui. I'd like insery in the code RobocopyGui.au3 the string D:\ W:\%username%. That users or technical support cant change sources path and target path...it is possible? #include <Constants.au3> $sourcedir = "D:\PartilhaNETBOOT\" $destdir = "F:\Autoitteste\" $ourProcess = Run (@ComSpec & " /c " & 'robocopy.exe ' & $sourcedir & ' ' & $destdir & ' /E /NJH /NJS /NDL /NC', @ScriptDir, @SW_HIDE, $STDOUT_CHILD) ProgressOn("RoboCopy", "Copying Files...", "0%",-1,-1,18) While 1 If $ourProcess Then $charsWaiting = StdoutRead($ourProcess, 0 , 1) If @error = -1 Then $ourProcess = 0 MsgBox(0, "App Exited", "Process has exited...") ContinueLoop EndIf If $charsWaiting Then $currentRead = StdoutRead($ourProcess) $fileinfo = StringRegExp($currentRead, '(.*?)([:alpha:]:.*\.[a-zA-Z]{3})',3) If IsArray($fileinfo) = 1 Then $filesize = StringStripCR(StringStripWS($fileinfo[0],8)) $filename = $fileinfo[1] EndIf $percent = StringRegExp($currentRead, '([0-9]{1,3})(?:.[0-9]{1,3})(?:%)',3) If IsArray($percent) = 1 Then ProgressSet($percent[0],$percent[0]&"% "&@CRLF&"Filename: "&$filename&@CRLF&"Filesize: "&$filesize) EndIf If IsArray($result) Then If StringInStr($result[0], "%") Then; Current line is a progress update line $progress = StringTrimRight($result[0], 1) MsgBox (4096,"Test", $progress) ElseIf ElseIf EndIf EndIf WEnd ProgressOff() Exit
  2. Hello, I like this robocopygui but i like insert in the code string robocopy D:\ W:\%username%. User cannot change sources path and target pah.... it is possible?
  3. Hello, Anyone have a all code complete with progressbar? I trie use this code but copy files, not copy folders, subfolders and progressbar not run. My project is copy one disk partition with letter D:\ (Total 60gb) to folder user that this to my server.
×
×
  • Create New...