Backing up my folders

[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
I:\backup\with today's date as the folder name.

Is there anyway to do this?

Thanks

Greg

 

[fred]

Greg, you could try this.

Sub Archive(YourDir As String)
Dim ArchiveDir As String
Dim thisFile As String

'Create the archive Directory
ArchiveDir = "I:\Backup\" & Format(Date, "dd-mm-yyyy")
If Dir(ArchiveDir, vbDirectory) = "" Then MkDir ArchiveDir

'Copy the files
thisFile = Dir(YourDir & "\*.xls")
While thisFile <> ""
FileCopy YourDir & thisFile, ArchiveDir & "\" & thisFile
thisFile = Dir
Wend
End Sub

Good luck,
Fred

 

[Bob Phillips]

Greg,

The ubiquitous FileSystemObject is one way

'---------------------------------------------------------------------------
Sub CopyFolder()
'---------------------------------------------------------------------------
Dim oFSO As Object
Dim sFolder As String

Set oFSO = CreateObject("Scripting.FileSystemObject")
sFolder = "I:\Backup\"
If Not oFSO.FolderExists(sFolder) Then
MkDir sFolder
End If
If Not oFSO.FolderExists(sFolder & Format(Date, "yyyy-mm-dd")) Then
MkDir sFolder & Format(Date, "yyyy-mm-dd")
End If
oFSO.CopyFolder "C:\myTest\*", sFolder & "\"
Set oFSO = Nothing
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)