Robocopy in Excel

[andya1981]

I am sorting out an archiving strategy for work to move folders from one server to an external hard disk.
I have written a full script in notepad and saved it as a .bat file so i can run it that way.
Can i use excel to state the from and to directory's, and also the file that i wish to exclude from the script.
I'm new to programming so a step by step approach would be good.

This is my .bat file, i have put in the cell numbers of where i want the info to come from.

SET _source=\\FileServ1\e$\users (this in cell A1)

SET _dest=\\FileServ2\e$\BackupUsers (this in cell A2)

SET _what=/move /xd: "\\FileServ1\e$\users\personal" (these folder in cells B1:B100)

SET _options=/R:0 /W:0 /LOG:\\FileServ1\e$\users\MyLogfile.txt


ROBOCOPY %_source% %_dest% %_what% %_options%

 

[John_w]

The easiest way is to use the Shell function to call the Robocopy command with the appropriate parameters. Something like this (untested):

Sub archive()

    Dim pid As Double
    Dim cell As Range
    Dim source As String, dest As String, what As String, options As String
    
    source = Range("A1").Value & " "
    dest = Range("A2").Value & " "
    options = "/R:0 /W:0 /LOG:\\FileServ1\e$\users\MyLogfile.txt"
    
    For Each cell In Range("B1:B100")
        what = "/move /xd: " & Chr(34) & cell.Value & Chr(34) & " "
        pid = Shell("C:\path\to\Robocopy " & source & dest & what & options, vbNormalFocus)
    Next
        
End Sub