Backing up work folder

[Greg B...]

Hi all,

Just wondering how I can back up a complete directory folder containing all
the .xls files I have. I have setup a macro that save certain file and back
them up but I would like to have the complete file copied and saved into
H:\backup\with today's date as the folder name.

Is there anyway to do this?

Thanks

Greg

 

[Guest]

Try:

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll"
(ByVal lpPath As String) As Long
Sub xx()
targetfolder = "c:\ajay\back\"
MakeSureDirectoryPathExists targetfolder
Set fso = CreateObject("Scripting.FileSystemObject")
For Each file In fso.getfolder("c:\ajay").Files
Select Case fso.getfile(file.Path).Type
Case "Microsoft Excel Worksheet"
fso.getfile(file.Path).Copy targetfolder
End Select
Next
set fso = nothing
End Sub