Template to Backup all .xls? files under MyDocuments\

[jim may]

Is there a template availble that will backup all *.xls? files in and under the Folder name MyDocuments? TIA, Jim May

 

[jim may]

Never mind, I built one...

 

[brettdj]

You could use xcopy to do this quickly including subdirectories

This code finds the "My Document" folder location regardess of OS or drive location

Cheers

Dave

Sub FolderSync2()
    Dim objWS
    Dim Path1 As String, Path2 As String
    Dim strMyDoc As String
    Set objWS = CreateObject("wscript.shell")
    strMyDoc = objWS.SpecialFolders("MyDocuments")
    Path1 = strMyDoc & "\*.xls*"
    Path2 = "C:\temp"
    Call XcopyFiles(Path1, Path2)
End Sub
Sub XcopyFiles(strSource, strDestination)
    Set wsh = CreateObject("wscript.shell")
    wsh.Run "xcopy.exe """ & strSource & """ """ & strDestination & """ /d /s /y /h /r", 1, True
    Set wsh = Nothing
End Sub

 

[brettdj]

I should have noted that you need to change "C:\temp" as necessary to your backup path

If "c:\temp" - or your substitution- exists already the code runs automatically. if it doesn't exist then xcopy will ask if the destination is a file or directory

Cheers

Dave