GUI for Robocopy

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

GUI for Robocopy

Logged in as: Guest

arrSession:exec spGetSession 2,16,63426

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> GUI for Robocopy
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

GUI for Robocopy - 8/13/2008 6:20:03 AM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: online

I have a couple things I want to do with it but they are not pressing. Right now, it expects the the Robocopy exe to be present in the path of the system (it is there on Vista). Eventually I may add a text field to manually put this someplace.

<head>
   <title>RoboCopy GUI</title>
     <HTA:APPLICATION ID="oHTA"
       APPLICATIONNAME="HTA Verification"
       NAVIGABLE="yes">

</head>

Dim WshShell : Set WshShell = CreateObject("Wscript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim f, fc, f1 
Dim strTempFolder : strTempFolder = fso.GetSpecialFolder(2)'Tempfolder WshShell.SpecialFolders("Desktop")

Sub Window_Onload
   'Hide a couple TD's
   document.getElementById("am1").style.display = "none"
   document.getElementById("ap1").style.display = "none"
   document.getElementById("copy1").style.display = "none"
   DivDisplay ("main")
   SetButton(1)'disable button 1
   document.all.LogPath.value = strTempFolder & "\RoboLog_" & Hour(Now) & Minute(Now) & Second(Now) & ".log"
   Call displayLogText()
End Sub

Sub DivDisplay(theDiv)
' DivDisplay is used to decide which DIV to make visible and which to hide.  
' PageArray needs to be updated as new DIV's are added
   Dim v, i, pageArray
   pageArray = Split("main,copyoptions,filteroptions,logoptions,copyinfo,runoutput",",")
   For p = 0 To UBound(pageArray)
       v = pageArray(p) & ".Style.Display ="
       If lcase(theDiv) = pageArray(p) Then
           v = v & """" & "block" & """"
       Else
           v = v & """" & "none" & """"
       End If 
       Execute v 
   Next
End Sub

Sub GetSource
   'strStartDir = "c:\"
   Document.All.Source.value = PickFolder(strStartDir)
End Sub

Sub GetDestination
   'strStartDir = "c:\"
   Document.All.Destination.value = PickFolder(strStartDir)
End Sub

Function PickFolder(strStartDir)
   Dim SA, F
   Set SA = CreateObject("Shell.Application")
   Set F = SA.BrowseForFolder(0, "Choose a folder", 0, strStartDir)
   If (Not F Is Nothing) Then
     PickFolder = F.Items.Item.path
   End If
   Set F = Nothing
   Set SA = Nothing
End Function

Sub SetButton(btn)

Dim disabled(7)
 For i=1 To 7
   disabled (i) = False'Set all buttons to display
 Next
 disabled (btn) = True 'Disable the appropriate button

Run_button1.disabled=disabled(1)
 Run_button2.disabled=disabled(2)
 Run_button3.disabled=disabled(3)
 Run_button4.disabled=disabled(4)
 Run_button5.disabled=disabled(5)
 Run_button6.disabled=disabled(6)
 Run_button7.disabled=disabled(7)
End Sub

Sub Home'Path
   ' This sub runs when the Home button is pressed
   ' Display HTML for Home Page only
   DivDisplay("main")
   ' Grey out button of currently displayed page
   SetButton(1)
End Sub

'--------------------------------------------------------------------------------

Sub CopyOptionsPage
   ' This sub runs when the Copy Options button is pressed
   
   ' Display HTML for Page1 only
   DivDisplay("copyoptions")
   ' Grey out button of currently displayed page
   SetButton(2)
End Sub

Sub FilterOptionsPage
   ' This sub runs when the Filters button is pressed
   
   ' Display HTML for Page1 only
   DivDisplay("filteroptions")
   ' Grey out button of currently displayed page
   SetButton(3)
End Sub

Sub logOptionsPage
   ' This sub runs when the Logging button is pressed
   
   ' Display HTML for Page1 only
   DivDisplay("logoptions")
   ' Grey out button of currently displayed page
   SetButton(4)
End Sub

Sub HelpFilePage
   ' This sub runs when the Help button is pressed
   
   ' Display HTML for Page1 only
   DivDisplay("copyinfo")
   ' Grey out button of currently displayed page
   SetButton(5)
End Sub

Sub RunRoboCopy()
    DivDisplay("RunOutput")
    SetButton(7)
   Dothing = False
   'Check source/Destination
   If document.all.Source.Value = "" Then
       DoThing = True
   Else
       theSource = document.all.Source.Value
   End If
   
   If document.all.Destination.Value = "" Then
       DoThing = True
   Else
       theDestination = document.all.Destination.Value
   End If
   
   If doThing Then 
       MsgBox "The Source Path and/Or Destination Path can not be empty",vbOKOnly,"Source/Destination Check"
       Exit Sub
   End If 
   
   cmdLine = ""
   'Copy Options
   If document.all.s.Checked Then            cmdLine = cmdLine & " " & document.all.s.Value
   If document.all.e.Checked Then            cmdLine = cmdLine & " " & document.all.e.Value
   If document.all.m.Checked Then            cmdLine = cmdLine & " " & document.all.m.Value
   If document.all.z.Checked Then            cmdLine = cmdLine & " " & document.all.z.Value
   
   If document.all.AMinus.Checked Then        
       aMinusCmd = ""
       If document.all.AmR.Checked Then aMinusCmd = aMinusCmd & document.all.AmR.Value
       If document.all.AmH.Checked Then aMinusCmd = aMinusCmd & document.all.AmH.Value
       If document.all.AmT.Checked Then aMinusCmd = aMinusCmd & document.all.AmT.Value
       If document.all.AmA.Checked Then aMinusCmd = aMinusCmd & document.all.AmA.Value
       If document.all.AmN.Checked Then aMinusCmd = aMinusCmd & document.all.AmN.Value
   
       cmdLine = cmdLine & " " & document.all.aMinus.Value & aMinusCmd
   End If 
   
   If document.all.SEC.Checked Then        cmdLine = cmdLine & " " & document.all.SEC.Value
   If document.all.MOV.Checked Then        cmdLine = cmdLine & " " & document.all.mov.Value
   If document.all.a.Checked Then            cmdLine = cmdLine & " " & document.all.a.Value
   If document.all.b.Checked Then            cmdLine = cmdLine & " " & document.all.b.Value
   If document.all.CopyAll.Checked Then    cmdLine = cmdLine & " " & document.all.copyall.Value
   If document.all.nocopy.Checked Then        cmdLine = cmdLine & " " & document.all.nocopy.Value
   If document.all.mir.Checked Then        cmdLine = cmdLine & " " & document.all.MIR.Value
   If document.all.ZB.Checked Then            cmdLine = cmdLine & " " & document.all.ZB.Value
   
   If document.all.Aplus.Checked Then
       aPlusCmd = ""
       If document.all.ApR.Checked Then aPlusCmd = aPlusCmd & document.all.ApR.Value
       If document.all.ApH.Checked Then aPlusCmd = aPlusCmd & document.all.ApH.Value
       If document.all.ApT.Checked Then aPlusCmd = aPlusCmd & document.all.ApT.Value
       If document.all.ApA.Checked Then aPlusCmd = aPlusCmd & document.all.ApA.Value
       If document.all.ApN.Checked Then aPlusCmd = aPlusCmd & document.all.ApN.Value
       cmdLine = cmdLine & " " & document.all.Aplus.Value & aPlusCmd
   End If 
           
   If document.all.Create.Checked Then        cmdLine = cmdLine & " " & document.all.Create.Value
   If document.all.Purge.Checked Then        cmdLine = cmdLine & " " & document.all.Purge.Value
   If document.all.Move.Checked Then        cmdLine = cmdLine & " " & document.all.Move.Value
   If document.all.Fat.Checked Then        cmdLine = cmdLine & " " & document.all.Fat.Value
   
   If document.all.Copy.Checked Then
       copyCmd = ""
       If document.all.CopyD.Checked Then copyCmd = copyCmd & document.all.CopyD.Value
       If document.all.CopyA.Checked Then copyCmd = copyCmd & document.all.CopyA.Value
       If document.all.CopyT.Checked Then copyCmd = copyCmd & document.all.CopyT.Value
       If document.all.CopyS.Checked Then copyCmd = copyCmd & document.all.CopyS.Value
       If document.all.CopyO.Checked Then copyCmd = copyCmd & document.all.CopyO.Value
       If document.all.CopyU.Checked Then copyCmd = copyCmd & document.all.CopyU.Value
       cmdLine = cmdLine & " " & document.all.Copy.Value & copyCmd 
   End If 
   
   If document.all.FFT.Checked Then        cmdLine = cmdLine & " " & document.all.FFT.Value
   If document.all.Lev.Checked Then        cmdLine = cmdLine & " " & document.all.Lev.Value & document.all.LevNum.Value
   
   'Retry Options
   If document.all.R.Checked Then    cmdLine = cmdLine & " " & document.all.R.Value & document.all.RNum.Value
   If document.all.W.Checked Then    cmdLine = cmdLine & " " & document.all.W.Value & document.all.WNum.Value
   
   'Filter Options
   If document.all.XJ.Checked Then    cmdLine = cmdLine & " " & document.all.XJ.Value
   If document.all.XC.Checked Then    cmdLine = cmdLine & " " & document.all.XC.Value
   If document.all.XN.Checked Then    cmdLine = cmdLine & " " & document.all.XN.Value
   If document.all.IA.Checked Then    cmdLine = cmdLine & " " & document.all.IA.Value
   If document.all.IT.Checked Then    cmdLine = cmdLine & " " & document.all.IT.Value
   If document.all.XX.Checked Then    cmdLine = cmdLine & " " & document.all.XX.Value
   If document.all.XL.Checked Then    cmdLine = cmdLine & " " & document.all.XL.Value
   If document.all.XA.Checked Then    cmdLine = cmdLine & " " & document.all.XA.Value
   If document.all.IS.Checked Then    cmdLine = cmdLine & " " & document.all.IS.Value
   If document.all.XO.Checked Then    cmdLine = cmdLine & " " & document.all.XO.Value
   If document.all.MAX.Checked Then     cmdLine = cmdLine & " " & document.all.MAX.Value & document.all.MaxNum.Value
   If document.all.MIN.Checked Then    cmdLine = cmdLine & " " & document.all.MIN.Value & document.all.MINNum.Value
   If document.all.XD.Checked Then        cmdLine = cmdLine & " " & document.all.XD.Value & document.all.XDir.Value
   If document.all.XF.Checked Then        cmdLine = cmdLine & " " & document.all.XF.Value & document.all.XFile.Value
   
   'Logging Options
   If document.all.V.Checked Then        cmdLine = cmdLine & " " & document.all.V.Value
   'If document.all.NJH.Checked Then    cmdLine = cmdLine & " " & document.all.NJH.Value
   If document.all.ETA.Checked Then    cmdLine = cmdLine & " " & document.all.ETA.Value
   If document.all.NC.Checked Then        cmdLine = cmdLine & " " & document.all.NC.Value
   'If document.all.NFL.Checked Then    cmdLine = cmdLine & " " & document.all.NFL.Value
   If document.all.TS.Checked Then        cmdLine = cmdLine & " " & document.all.TS.Value
   'If document.all.NJS.Checked Then    cmdLine = cmdLine & " " & document.all.NJS.Value
   If document.all.X.Checked Then        cmdLine = cmdLine & " " & document.all.X.Value
   If document.all.NDL.Checked Then    cmdLine = cmdLine & " " & document.all.NDL.Value
   If document.all.L.Checked Then        cmdLine = cmdLine & " " & document.all.L.Value
   If document.all.FP.Checked Then        cmdLine = cmdLine & " " & document.all.FP.Value
   If document.all.NP.Checked Then        cmdLine = cmdLine & " " & document.all.NP.Value
   If document.all.NS.Checked Then        cmdLine = cmdLine & " " & document.all.NS.Value
   
   If Not document.all.LogSelect.Value = "ack" Then 
       'Check if LogPath is entered and folder is present.
       StrLogFile = document.all.LogPath.Value
       If Fso.FolderExists(Fso.GetParentFolderName(strLogFile)) Then 
           cmdLine = cmdLine & " /TEE " &  document.all.LogSelect.Value & """" & StrLogFile & """"
       End If 
   End If 
   
   Output.Value = "Running Robocopy.  Cmd Prompt window will close when copy is finished."
   
   Dim cmd: cmd="cmd /c RoboCopy " & theSource & " " & theDestination & " " & cmdLine
   WshShell.Run cmd,1,True
   
   Dim Divider : Divider = "---"
   createHeader = True 
   'count = 0
   Dim finished: finished=False
   Dim myArray
   Do Until finished
       If Fso.FileExists(StrLogFile) Then
           'Read log file into an array            
           Set file = Fso.OpenTextFile(StrLogFile,1)'1=ForReading
           myArray=Split("", vbCrLf)
           On Error Resume Next
           myArray = split(file.ReadAll,VbCrLf)
           On Error Goto 0
           file.Close 
           Count=0
           header = ""
           body = ""
           footer = ""
           
           For i = 0 To UBound(myArray)
               If left(myArray(i),3) = Divider Then
                   count = count + 1
               End If     
               
               If count < 3 Then
                   If Len(myArray(i)) > 5 Then 
                       If InStr(myArray(i)," : ") Then 
                           'MsgBox "F"
                           header = header & myArray(i) & VbCrLf 
                       End If 
                   End If 
               ElseIf count = 3 Then 
                   If Not Left(myArray(i),3)= "---" Then 
                       body = body & myArray(i) & VbCrLf
                   End If 
               ElseIf Count = 4 Then 
                   If InStr(lcase(myArray(i)),"ended :") Then finished = True
                   If Not Left(myArray(i),3)= "---" Then 
                       footer = footer & myArray(i) & VbCrLf
                   End If 
               End If 
           Next
           If createHeader = True Then 
               If Count>=3 Then CreateHeader=False
               'Output.Value = header
           End If 
           'output1.value = body
       End If
   Loop
   Output.Value = header
   output1.value = body
   output2.value = footer
   
   MsgBox "Done"
End Sub

Sub SwitchSelection()
'This sub will decide which hidden TD to display based on the selected parent check.

If document.all.APlus.Checked Then 'Copy Options A+
       document.getElementById("ap1").style.display = ""
       document.getElementById("ap2").style.display = "None"
   ElseIf document.all.AMinus.Checked  = False Then 'Copy Options A-
       document.getElementById("ap1").style.display = "None"
       document.getElementById("ap2").style.display = ""
   End If 
   
   If document.all.AMinus.Checked  Then 'Copy Options A-
       document.getElementById("am1").style.display = ""
       document.getElementById("am2").style.display = "None"
   ElseIf document.all.AMinus.Checked  = False Then 'Copy Options A+
       document.getElementById("am1").style.display = "None"
       document.getElementById("am2").style.display = ""
   End If 
   
   If document.all.Copy.Checked  Then 'Copy Options Copy
       document.getElementById("copy1").style.display = ""
       document.getElementById("copy2").style.display = "None"
   ElseIf document.all.Copy.Checked  = False Then 
       document.getElementById("copy1").style.display = "None"
       document.getElementById("copy2").style.display = ""
   End If 
   
End Sub

Sub ReFreshHTA
   Location.Reload(True)
End Sub

Sub displayLogText()
'Sub programatically sets span below logfile text box to display what the selected log type does.
   'ToDo - Add the text here to the title of the selected log and fill in span with text from title.
   strListBox = document.all.LogSelect.value
   Select Case strListBox
       Case "/LOG:" logtext.InnerHTML = "Output status to LOG file (overwrite existing log)."
       Case "/LOG+:" logtext.InnerHTML = "Output status to LOG file (append to existing log)."
       Case "/UNILOG:" logtext.InnerHTML = "Output status to LOG file as UNICODE (overwrite existing log)."
       Case "/UNILOG+:" logtext.InnerHTML = "Output status to LOG file as UNICODE (append to existing log)."
   End Select 
End Sub

</Script>

<DIV id="Main" STYLE="display:none;position:absolute"> 
<br><br>
   <table  border="0" cellspacing="1" width="65%" Align="center">
       <tr>
           <td>Source Path:</td>
           <td><input type = "text" name = "Source" size="50" />
           <input type = "button" value = "Browse ..." onClick="GetSource" /></td>
       </tr>

<tr>
           <td>Target Path:</td>
           <td><input type = "text" name = "Destination" size="50" />
           <input type = "button" value = "Browse ..." onClick="GetDestination" /></td>
       </tr>
   </Table>
</DIV>

<DIV id="copyoptions" STYLE="display:none;position:absolute"> 
<br><br>
   <table  border="0" cellspacing="1" width="65%">
   <tr>
       <td><input type="checkbox"name="S"value="/S" title="copy Subdirectories (Excluding empty ones)"> /S</td>
       <td><input type="checkbox"name="SEC"value="/SEC" title="copy files with SECurity (equivalent to /COPY:DATS)"> /SEC</td>
       <td><input type="checkbox"name="COPYALL"value="/COPYALL" title="COPY ALL file info (equivalent to /COPY:DATSOU)"> /COPYALL</td>
       <td><input type="checkbox"name="CREATE"value="/CREATE" title="CREATE directory tree and zero-length files only"> /CREATE</td>
       <td><input type="checkbox"name="FFT"value="/FFT" title="assume FAT File Times (2-second granularity)"> /FFT</td>
   </tr>

<tr>
       <td><input type="checkbox"name="E"value="/E" title="copy Subdirectories (Including empty ones)"> /E</td>
       <td><input type="checkbox"name="MOV"value="/MOV" title="MOVe files (delete from source after copying)"> /MOV</td>
       <td><input type="checkbox"name="NOCOPY"value="/NOCOPY" title="COPY nothing (useful with /PURGE)"> /NOCOPY</td>
       <td><input type="checkbox"name="PURGE"value="/PURGE" title="delete destination files/dirs that no longer exist in source"> /PURGE</td>
       <td><input type="checkbox"name="LEV"value="/LEV:" title="only copy the top n LEVels of the source directory tree"> /LEV:n <input type = "text" name="LevNum" size="1" value="1" /></td>
   </tr>

</tr>
   </Table>

<fieldset style="Width:60%">
   <legend>Retry Options</legend>
   <label><input type="checkbox"name="R" checked value="/R:" title="Retries"> /R: <input type = "text" name="RNum" size="1" value="1" title="Number of Retries"/></label>
   <Label><input type="checkbox"name="W" checked value="/W:" title="Wait Time"> /W: <input type = "text" name="WNum" size="1" value="1" title="Wait Time between Retries"/></label>
</fieldset>

</DIV>

<DIV id="Filteroptions" STYLE="display:none;position:absolute">     
<br><br>
   <table  border="0" cellspacing="1" width="65%" Align="center">
   <tr>
       <td><input type="checkbox"name="XJ"value="/XJ" title="eXclude Junction points. (normally included by default)"> /XJ</td>
       <td><input type="checkbox"name="IT"value="/IT" title="Include Tweaked files"> /IT"</td>
       <td><input type="checkbox"name="IS"value="/IS" title="Include Same files"> /IS</td>
       <td><input type="checkbox"name="MAX"value="/MAX " title="MAXimum file size"> /MAX:&nbsp<input type = "text" name="MAXNum" size="1" value="256" title="exclude files bigger than n bytes"/> bytes</td>
   </tr>
   <tr>
       <td><input type="checkbox"name="XC"value="/XC" title="eXclude Changed files"> /XC</td>
       <td><input type="checkbox"name="XX"value="/XX" title="eXclude eXtra files and directories"> /XX</td>
       <td><input type="checkbox"name="XO"value="/XC" title="eXclude Lonely files and directories"> /XO</td>
       <td><input type="checkbox"name="MIN"value="/MIN " title="MINimum file size"> /MIN:&nbsp;&nbsp;&nbsp;<input type = "text" name="MinNum" size="1" value="256" title="exclude files smaller than n bytes"/> bytes</td>
   </tr>
   <tr>
       <td><input type="checkbox"name="XN"value="/XN" title="eXclude Newer files"> /XN</td>
       <td><input type="checkbox"name="XL"value="/XL" title="eXclude Lonely files and directories"> /XL</td>
       <td></td>
       <td><input type="checkbox"name="XD"value="/XD " title="eXclude Directories matching given names/paths"> /XD:&nbsp;&nbsp;&nbsp;&nbsp;<input type = "text" name="XDir" size="10" value="*.txt" /></td>
   </tr>
   <tr>
       <td><input type="checkbox"name="IA"value="/IA" title="Include only files with any of the given Attributes set"> /IA</td>
       <td><input type="checkbox"name="XA"value="/XA" title="eXclude files with any of the given Attributes set"> /XA</td>
       <td></td>
       <td><input type="checkbox"name="XF"value="/XF " title="eXclude Files matching given names/paths/wildcards"> /XF:&nbsp;&nbsp;&nbsp;&nbsp;<input type = "text" name="XFile" size="10" value="*.txt" /></td>
   </tr>

   </Table>

</Div>

<table  border="0" cellspacing="1" width="55%" Align="center">
   <tr>
       <td><input type="checkbox"name="L"value="/L" title="List only - don't copy, timestamp or delete any files"> /L</td>
       <td><input type="checkbox" Checked name="V"value="/V" title="produce Verbose output, showing skipped files"> /V</td>
       <td><input type="checkbox"name="TS"value="/TS" title="include source file Time Stamps in the output"> /TS</td>
   </tr>
   
   <tr>

       <td><input type="checkbox"name="ETA"value="/ETA" title="show Estimated Time of Arrival of copied files"> /ETA</td>
       <td><input type="checkbox"name="X"value="/X" title="report all eXtra files, not just those selected"> /X</td>
        <td><input type="checkbox"name="FP"value="/FP" title="include Full Pathname of files in the output"> /FP</td>
   </tr>

<tr>
       <td><input type="checkbox"name="NP"value="/NP" title="No Progress - don't display % copied"> /NP</td>
       <td><input type="checkbox"name="NS"value="/NS" title="No Size - don't log file sizes"> /NS</td>
   </tr>
   
   <tr>
       <td><input type="checkbox"name="NC"value="/NC" title="No Class - don't log file classes"> /NC</td>
       <td><input type="checkbox"name="NDL"value="/NDL" title="No Directory List - don't log directory names"> /NDL</td>
       
   </tr>    
   
   <tr>

</tr>
   </Table>

<br><br><br><br>
<table  border="0" cellspacing="1" width="35%" Align="center">
   <tr>
       <td>
           <select size="1" name="LogSelect" onChange="displayLogText">
               <option value="/LOG:">Log</option>
               <option value="/LOG+:">Log+</option>
               <option value="/UNILOG:">Unicode</option>
               <option value="/UNILOG+:">Unicode+</option>
           </select>
       </td>
       <td>
           <input type = "text" name="LogPath" size="50"/>
       </td>
   </tr>
   <tr><td></td><td><span id="logtext">t</span></td></tr>
</table>

</div>

<DIV id="copyinfo" STYLE="display:none;position:absolute"> 
<br><br>
<pre>
-------------------------------------------------------------------------------
  ROBOCOPY     ::     Robust File Copy for Windows                              
-------------------------------------------------------------------------------
               Usage :: ROBOCOPY source destination [file [file]...] [options]
           source :: Source Directory (drive:\path or \\server\share\path).
      destination :: Destination Dir  (drive:\path or \\server\share\path).
              file :: File(s) to copy  (names/wildcards: default is "*.*").
      
:: Copy options :

/S :: copy Subdirectories, but not empty ones.
               /E :: copy subdirectories, including Empty ones.
           /LEV:n :: only copy the top n LEVels of the source directory tree.

/Z :: copy files in restartable mode.
                /B :: copy files in Backup mode.
               /ZB :: use restartable mode; if access denied use Backup mode.
           /EFSRAW :: copy all encrypted files in EFS RAW mode.

/COPY:copyflag[s] :: what to COPY for files (default is /COPY:DAT).
                      (copyflags : D=Data, A=Attributes, T=Timestamps).
                      (S=Security=NTFS ACLs, O=Owner info, U=aUditing info).

/DCOPY:T :: COPY Directory Timestamps.

/SEC :: copy files with SECurity (equivalent to /COPY:DATS).
          /COPYALL :: COPY ALL file info (equivalent to /COPY:DATSOU).
           /NOCOPY :: COPY NO file info (useful with /PURGE).

/SECFIX :: FIX file SECurity on all files, even skipped files.
           /TIMFIX :: FIX file TIMes on all files, even skipped files.

/PURGE :: delete dest files/dirs that no longer exist in source.
              /MIR :: MIRror a directory tree (equivalent to /E plus /PURGE).

/MOV :: MOVe files (delete from source after copying).
             /MOVE :: MOVE files AND dirs (delete from source after copying).

/A+:[RASHCNET] :: add the given Attributes to copied files.
    /A-:[RASHCNET] :: remove the given Attributes from copied files.

/CREATE :: CREATE directory tree and zero-length files only.
              /FAT :: create destination files using 8.3 FAT file names only.
              /256 :: turn off very long path (> 256 characters) support.

/MON:n :: MONitor source; run again when more than n changes seen.
            /MOT:m :: MOnitor source; run again in m minutes Time, if changed.

/RH:hhmm-hhmm :: Run Hours - times when new copies may be started.
               /PF :: check run hours on a Per File (not per pass) basis.

/IPG:n :: Inter-Packet Gap (ms), to free bandwidth on slow lines.

::
:: File Selection Options :
::
                /A :: copy only files with the Archive attribute set.
                /M :: copy only files with the Archive attribute and reset it.
   /IA:[RASHCNETO] :: Include only files with any of the given Attributes set.
   /XA:[RASHCNETO] :: eXclude files with any of the given Attributes set.

/XF file [file]... :: eXclude Files matching given names/paths/wildcards.
/XD dirs [dirs]... :: eXclude Directories matching given names/paths.

/XC :: eXclude Changed files.
               /XN :: eXclude Newer files.
               /XO :: eXclude Older files.
               /XX :: eXclude eXtra files and directories.
               /XL :: eXclude Lonely files and directories.
               /IS :: Include Same files.
               /IT :: Include Tweaked files.

/MAX:n :: MAXimum file size - exclude files bigger than n bytes.
            /MIN:n :: MINimum file size - exclude files smaller than n bytes.

/MAXAGE:n :: MAXimum file AGE - exclude files older than n days/date.
         /MINAGE:n :: MINimum file AGE - exclude files newer than n days/date.
         /MAXLAD:n :: MAXimum Last Access Date - exclude files unused since n.
         /MINLAD:n :: MINimum Last Access Date - exclude files used since n.
                      (If n < 1900 then n = n days, else n = YYYYMMDD date).

/XJ :: eXclude Junction points. (normally included by default).

/FFT :: assume FAT File Times (2-second granularity).
              /DST :: compensate for one-hour DST time differences.

/XJD :: eXclude Junction points for Directories.
              /XJF :: eXclude Junction points for Files.

::
:: Retry Options :
::
              /R:n :: number of Retries on failed copies: default 1 million.
              /W:n :: Wait time between retries: default is 30 seconds.

/REG :: Save /R:n and /W:n in the Registry as default settings.

/TBD :: wait for sharenames To Be Defined (retry error 67).

::
:: Logging Options :
::
                /L :: List only - don't copy, timestamp or delete any files.
                /X :: report all eXtra files, not just those selected.
                /V :: produce Verbose output, showing skipped files.
               /TS :: include source file Time Stamps in the output.
               /FP :: include Full Pathname of files in the output.
            /BYTES :: Print sizes as bytes.

/NS :: No Size - don't log file sizes.
               /NC :: No Class - don't log file classes.
              /NFL :: No File List - don't log file names.
              /NDL :: No Directory List - don't log directory names.

/NP :: No Progress - don't display % copied.
              /ETA :: show Estimated Time of Arrival of copied files.

/LOG:file :: output status to LOG file (overwrite existing log).
        /LOG+:file :: output status to LOG file (append to existing log).

/UNILOG:file :: output status to LOG file as UNICODE (overwrite existing log).
     /UNILOG+:file :: output status to LOG file as UNICODE (append to existing log).

/TEE :: output to console window, as well as the log file.

/NJH :: No Job Header.
              /NJS :: No Job Summary.

/UNICODE :: output status as UNICODE.

::
:: Job Options :
::
      /JOB:jobname :: take parameters from the named JOB file.
     /SAVE:jobname :: SAVE parameters to the named job file
             /QUIT :: QUIT after processing command line (to view parameters). 
             /NOSD :: NO Source Directory is specified.
             /NODD :: NO Destination Directory is specified.
               /IF :: Include the following Files.
</pre></div>

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

Post #: 1

RE: GUI for Robocopy - 8/14/2008 11:22:55 AM

TomRiddle

Posts: 191
Score: 4
Joined: 2/7/2008
Status: offline

Nice script, I will have a good play with this.

(in reply to mbouchard)

Post #: 2

RE: GUI for Robocopy - 8/14/2008 2:54:15 PM

dm_4ever

Posts: 2670
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Very cool...I'll have to show this to a co-worker of mine.

//UPDATE: a nice addition would be the ability to save the command built with a friendly name or even the settings used... and maybe the ability to schedule a copy.

< Message edited by dm_4ever -- 8/15/2008 2:01:54 AM >

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to mbouchard)

Revisions: 2 | Post #: 3

RE: GUI for Robocopy - 8/17/2008 10:38:48 PM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: online

quote:

ORIGINAL: TomRiddle

Nice script, I will have a good play with this.

Thanks Tom.

quote:

ORIGINAL: dm_4ever

Very cool...I'll have to show this to a co-worker of mine.

//UPDATE: a nice addition would be the ability to save the command built with a friendly name or even the settings used... and maybe the ability to schedule a copy.

Hmm, good idea. Will have to think on the best way to do this. Will look at the scheduled copy too.

_____________________________

Mike

For useful Scripting links see the Read Me First stickey!

Always remember Search is your friend.

(in reply to TomRiddle)

Post #: 4

RE: GUI for Robocopy - 8/18/2008 6:48:39 AM

mbouchard

Posts: 1916
Score: 16
Joined: 5/15/2003
From: USA
Status: online

OK, here is a first attempt at the save command bit. This is rough code so not all checks are present. I.e. right now the log file is being written to the Logs Subfolder under the folder where the GUI is located.
Right now, the cmd line used is taken from the saved commands. What I am trying to figure out is an easyish way to take the saved command and make whatever settings need to be made. Anyone have any ideas?

<head>
   <title>RoboCopy GUI</title>
     <HTA:APPLICATION ID="oHTA"
       APPLICATIONNAME="HTA Verification"
       NAVIGABLE="yes">

</head>

Dim WshShell : Set WshShell = CreateObject("Wscript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim f, fc, f1
Dim strTempFolder : strTempFolder = fso.GetSpecialFolder(2)'Tempfolder WshShell.SpecialFolders("Desktop")

Dim currFolder : currFolder = fso.GetParentFolderName(document.location)

If InStr(currFolder,"///") Then 'indicates a drive letter
   currFolder = Mid(replace(currFolder,"/","\"),9) & "\" 'Will display X:\Folder\
Else
   currFolder = "\\" & Mid(replace(currFolder,"/","\"),8) & "\" 'Will display \\Server\Share\Folder\
End If

'Cleanup CurFolder if it contains %20
currFolder = replace(currFolder,"%20"," ")

dim SavedSearchesTextFile :  SavedSearchesTextFile = currFolder   & "RoboCopyGuiSavedSearches.dat"

Sub Window_Onload
   'Hide a couple TD's
   document.getElementById("am1").style.display = "none"
   document.getElementById("ap1").style.display = "none"
   document.getElementById("copy1").style.display = "none"
   DivDisplay ("main")
   Call populateSavedSearches()
   SetButton(1)'disable button 1
   document.all.LogPath.value = currFolder & "Logs\RoboLog_" & Hour(Now) & Minute(Now) & Second(Now) & ".log"
   Call displayLogText()
End Sub

Sub populateSavedSearches()
' Populate the KBU from Text File (\\cmgc-file-001\desktop$\WMDT\SupportFiles\KBUs.txt
' Checks agains a list maintained in (\\cmgc-file-001\desktop$\wmdt\WinPe\SupportFiles\UtilityFiles\rdgroup.txt

set opt = document.createElement("option")
   opt.value = "ack"
   opt.text = "<Saved Searches>"
   document.all.SaveSearchOptions.options.add opt
   If Fso.FileExists(SavedSearchesTextFile) Then 
   
       Set sFile = FSO.OpenTextFile(SavedSearchesTextFile, 1)'forreading 
       Do UNTIL sFile.AtEndOfStream
           myLineArray = split(sFile.Readline,",")
           For i = 0 To UBound(myLineArray)
                If i = 0 Then strTitle = myLineArray(i)
                If i = 1 Then strSrc = myLineArray(i)
                If i = 2 Then strdst = myLineArray(i)
                If i = 3 Then strCmd = myLineArray(i)
            Next

set opt = document.createElement("option")
           opt.value = strSrc & "," & strDst & "," & strCmd 
           opt.text =  strTitle
           document.all.SaveSearchOptions.options.add opt
       Loop
   End If 
End Sub

Sub GetSource
   'strStartDir = "c:\"
   Document.All.Source.value = PickFolder(strStartDir)
End Sub

Sub GetDestination
   'strStartDir = "c:\"
   Document.All.Destination.value = PickFolder(strStartDir)
End Sub

Sub SetButton(btn)

Dim disabled(7)
 For i=1 To 7
   disabled (i) = False'Set all buttons to display
 Next
 disabled (btn) = True 'Disable the appropriate button

'--------------------------------------------------------------------------------

Sub RunRoboCopy()
   DivDisplay("RunOutput")
    SetButton(7)
   Dothing = False

'Add check for running saved robocopy
       'Check source/Destination
       If document.all.Source.Value = "" Then
           DoThing = True
       Else
           theSource = document.all.Source.Value
       End If
       
       If document.all.Destination.Value = "" Then
           DoThing = True
       Else
           theDestination = document.all.Destination.Value
       End If
       
       If doThing Then 
           MsgBox "The Source Path and/Or Destination Path can not be empty",vbOKOnly,"Source/Destination Check"
           Exit Sub
       End If 
   
   'Ask if user wants to use SaveSearchOptions for LogFileName
   If document.all.save.Checked Then 
       ret = MsgBox("Do you want to use the Save Search Title for the LogFileName?",vbYesNo)
       If ret = vbYes Then 
           document.all.LogPath.value = fso.GetParentFolderName(document.all.LogPath.value) & "\RoboLog_" & document.all.SaveTitle.Value & ".log"
       End If 
   End If 
   
   If document.all.savesearchoptions.value = "ack" Then 
       cmdLine = ""
       'Copy Options
       If document.all.s.Checked Then            cmdLine = cmdLine & " " & document.all.s.Value
       If document.all.e.Checked Then            cmdLine = cmdLine & " " & document.all.e.Value
       If document.all.m.Checked Then            cmdLine = cmdLine & " " & document.all.m.Value
       If document.all.z.Checked Then            cmdLine = cmdLine & " " & document.all.z.Value
       
       If document.all.AMinus.Checked Then        
           aMinusCmd = ""
           If document.all.AmR.Checked Then aMinusCmd = aMinusCmd & document.all.AmR.Value
           If document.all.AmH.Checked Then aMinusCmd = aMinusCmd & document.all.AmH.Value
           If document.all.AmT.Checked Then aMinusCmd = aMinusCmd & document.all.AmT.Value
           If document.all.AmA.Checked Then aMinusCmd = aMinusCmd & document.all.AmA.Value
           If document.all.AmN.Checked Then aMinusCmd = aMinusCmd & document.all.AmN.Value
       
           cmdLine = cmdLine & " " & document.all.aMinus.Value & aMinusCmd
       End If 
       
       If document.all.SEC.Checked Then        cmdLine = cmdLine & " " & document.all.SEC.Value
       If document.all.MOV.Checked Then        cmdLine = cmdLine & " " & document.all.mov.Value
       If document.all.a.Checked Then            cmdLine = cmdLine & " " & document.all.a.Value
       If document.all.b.Checked Then            cmdLine = cmdLine & " " & document.all.b.Value
       If document.all.CopyAll.Checked Then    cmdLine = cmdLine & " " & document.all.copyall.Value
       If document.all.nocopy.Checked Then        cmdLine = cmdLine & " " & document.all.nocopy.Value
       If document.all.mir.Checked Then        cmdLine = cmdLine & " " & document.all.MIR.Value
       If document.all.ZB.Checked Then            cmdLine = cmdLine & " " & document.all.ZB.Value
       
       If document.all.Aplus.Checked Then
           aPlusCmd = ""
           If document.all.ApR.Checked Then aPlusCmd = aPlusCmd & document.all.ApR.Value
           If document.all.ApH.Checked Then aPlusCmd = aPlusCmd & document.all.ApH.Value
           If document.all.ApT.Checked Then aPlusCmd = aPlusCmd & document.all.ApT.Value
           If document.all.ApA.Checked Then aPlusCmd = aPlusCmd & document.all.ApA.Value
           If document.all.ApN.Checked Then aPlusCmd = aPlusCmd & document.all.ApN.Value
           cmdLine = cmdLine & " " & document.all.Aplus.Value & aPlusCmd
       End If 
               
       If document.all.Create.Checked Then        cmdLine = cmdLine & " " & document.all.Create.Value
       If document.all.Purge.Checked Then        cmdLine = cmdLine & " " & document.all.Purge.Value
       If document.all.Move.Checked Then        cmdLine = cmdLine & " " & document.all.Move.Value
       If document.all.Fat.Checked Then        cmdLine = cmdLine & " " & document.all.Fat.Value
       
       If document.all.Copy.Checked Then
           copyCmd = ""
           If document.all.CopyD.Checked Then copyCmd = copyCmd & document.all.CopyD.Value
           If document.all.CopyA.Checked Then copyCmd = copyCmd & document.all.CopyA.Value
           If document.all.CopyT.Checked Then copyCmd = copyCmd & document.all.CopyT.Value
           If document.all.CopyS.Checked Then copyCmd = copyCmd & document.all.CopyS.Value
           If document.all.CopyO.Checked Then copyCmd = copyCmd & document.all.CopyO.Value
           If document.all.CopyU.Checked Then copyCmd = copyCmd & document.all.CopyU.Value
           cmdLine = cmdLine & " " & document.all.Copy.Value & copyCmd 
       End If 
       
       If document.all.FFT.Checked Then        cmdLine = cmdLine & " " & document.all.FFT.Value
       If document.all.Lev.Checked Then        cmdLine = cmdLine & " " & document.all.Lev.Value & document.all.LevNum.Value
       
       'Retry Options
       If document.all.R.Checked Then    cmdLine = cmdLine & " " & document.all.R.Value & document.all.RNum.Value
       If document.all.W.Checked Then    cmdLine = cmdLine & " " & document.all.W.Value & document.all.WNum.Value
       
       'Filter Options
       If document.all.XJ.Checked Then    cmdLine = cmdLine & " " & document.all.XJ.Value
       If document.all.XC.Checked Then    cmdLine = cmdLine & " " & document.all.XC.Value
       If document.all.XN.Checked Then    cmdLine = cmdLine & " " & document.all.XN.Value
       If document.all.IA.Checked Then    cmdLine = cmdLine & " " & document.all.IA.Value
       If document.all.IT.Checked Then    cmdLine = cmdLine & " " & document.all.IT.Value
       If document.all.XX.Checked Then    cmdLine = cmdLine & " " & document.all.XX.Value
       If document.all.XL.Checked Then    cmdLine = cmdLine & " " & document.all.XL.Value
       If document.all.XA.Checked Then    cmdLine = cmdLine & " " & document.all.XA.Value
       If document.all.IS.Checked Then    cmdLine = cmdLine & " " & document.all.IS.Value
       If document.all.XO.Checked Then    cmdLine = cmdLine & " " & document.all.XO.Value
       If document.all.MAX.Checked Then     cmdLine = cmdLine & " " & document.all.MAX.Value & document.all.MaxNum.Value
       If document.all.MIN.Checked Then    cmdLine = cmdLine & " " & document.all.MIN.Value & document.all.MINNum.Value
       If document.all.XD.Checked Then        cmdLine = cmdLine & " " & document.all.XD.Value & document.all.XDir.Value
       If document.all.XF.Checked Then        cmdLine = cmdLine & " " & document.all.XF.Value & document.all.XFile.Value
       
       'Logging Options
       If document.all.V.Checked Then        cmdLine = cmdLine & " " & document.all.V.Value
       'If document.all.NJH.Checked Then    cmdLine = cmdLine & " " & document.all.NJH.Value
       If document.all.ETA.Checked Then    cmdLine = cmdLine & " " & document.all.ETA.Value
       If document.all.NC.Checked Then        cmdLine = cmdLine & " " & document.all.NC.Value
       'If document.all.NFL.Checked Then    cmdLine = cmdLine & " " & document.all.NFL.Value
       If document.all.TS.Checked Then        cmdLine = cmdLine & " " & document.all.TS.Value
       'If document.all.NJS.Checked Then    cmdLine = cmdLine & " " & document.all.NJS.Value
       If document.all.X.Checked Then        cmdLine = cmdLine & " " & document.all.X.Value
       If document.all.NDL.Checked Then    cmdLine = cmdLine & " " & document.all.NDL.Value
       If document.all.L.Checked Then        cmdLine = cmdLine & " " & document.all.L.Value
       If document.all.FP.Checked Then        cmdLine = cmdLine & " " & document.all.FP.Value
       If document.all.NP.Checked Then        cmdLine = cmdLine & " " & document.all.NP.Value
       If document.all.NS.Checked Then        cmdLine = cmdLine & " " & document.all.NS.Value
       
       If Not document.all.LogSelect.Value = "ack" Then 
           'Check if LogPath is entered and folder is present.
           StrLogFile = document.all.LogPath.Value
           If Fso.FolderExists(Fso.GetParentFolderName(strLogFile)) Then 
               cmdLine = cmdLine & " /TEE " &  document.all.LogSelect.Value & """" & StrLogFile & """"
           End If 
       End If 
   Else
       cmdline = searchCommand.Innerhtml
       'MsgBox cmdline
   End If 
   
   Output.Value = "Running Robocopy.  Cmd Prompt window will close when copy is finished."
   Output1.Value = ""
   Output2.Value=""
   
   Dim cmd: cmd="RoboCopy " & """" & theSource & """" & " " & """" & theDestination & """"& " " & cmdLine
   
   If document.all.save.Checked Then 
       If document.all.savetitle.value = "" Then 
           MsgBox "Please enter a title before continuing"
           DivDisplay("main")
           savetitle.focus
           Exit Sub
       End If 
       Call SaveSearchCommand(document.all.savetitle.value & "," & theSource & "," & theDestination & "," & cmdLine)
   End If 
   cmdtext.InnerHTML = cmd & VbCrLf
   
   WshShell.Run "cmd /c " & cmd,1,True
   
   Dim Divider : Divider = "---"
   createHeader = True 
   'count = 0
   Dim finished: finished=False
   Dim myArray
'    Do Until finished
       If Fso.FileExists(StrLogFile) Then
           'Read log file into an array            
           Set file = Fso.OpenTextFile(StrLogFile,1)'1=ForReading
           myArray=Split("", vbCrLf)
           On Error Resume Next
           myArray = split(file.ReadAll,VbCrLf)
           On Error Goto 0
           file.Close 
           Count=0
           header = ""
           body = ""
           footer = ""
           
           For i = 0 To UBound(myArray)
               If left(myArray(i),3) = Divider Then
                   count = count + 1
               End If     
               
               If count < 3 Then
                   If Len(myArray(i)) > 5 Then 
                       If InStr(myArray(i)," : ") Then 
                           'MsgBox "F"
                           header = header & myArray(i) & VbCrLf 
                       End If 
                   End If 
               ElseIf count = 3 Then 
                   If Not Left(myArray(i),3)= "---" Then 
                       body = body & myArray(i) & VbCrLf
                   End If 
               ElseIf Count = 4 Then 
                   If InStr(lcase(myArray(i)),"ended :") Then finished = True
                   If Not Left(myArray(i),3)= "---" Then 
                       footer = footer & myArray(i) & VbCrLf
                   End If 
               End If 
           Next
'             If createHeader = True Then 
'                 If Count>=3 Then CreateHeader=False
'                 'Output.Value = header
'             End If 
           'output1.value = body
           If count < 4 Then 
               If Footer = "" Then Footer = "Script ended prematurely"
           End If 
       End If
   'Loop
   Output.Value = header
   output1.value = body
   output2.value = footer
   
   MsgBox "Done"
End Sub

Sub SwitchSelection()
'This sub will decide which hidden TD to display based on the selected parent check.

Sub ReFreshHTA
   Location.Reload(True)
End Sub