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


"Greg B" wrote in message
...
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