Brett

You can duplicate a complete folder like this:



Sub CopyFolder()
Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
fso.CopyFolder "c:\old", "c:\new"
End Sub



Courtesy of Jim Rech (MVP)



Regards



Trevor



"Brettjg" wrote in message
...
I'm a bit of a backup fanatic, and realised that I can auyomate most of my
backups by macro, which is great. The only problem is that the help in VB
is
too damn general for a novice. It just says FileSystemObject.Copyfolder,
but
doesn't tell you how to express a FilesystemObject. I can successfully
copy
files so I modified the code, and of course it doesn't work! I used:


Sub BACKUP_CENTRAL_DATA()
Dim SourceFolder, DestinationFolder
SourceFolder = "C:\0. CENTRAL DATA\"
DestinationFolder = "C:\99. BACKUPS\0. CENTRAL DATA\"
FileCopy SourceFolder, DestinationFolder
End Sub

Can someone help me on this simple one please?

Also I note that when I try to copy some of the files it says permission
denied. The files are as follows:

SourceFile = "blah blah\Application
Data\Microsoft\Excel\XLSTART\PERSONAL.xls"
SourceFile = "blah blah\My Documents\New Settings File.OPS"
SourceFile = "blah blah\Application Data\Microsoft\Outlook\Outlook.NK2"
SourceFolder = "blah blah\bgregory.DFS.000\Cookies\"
SourceFolder = "blah blah\Favorites\"
SourceFolder = "blah blah\Start Menu\"

I didn't run the code from PERSONAL.XLS

Thanks in advance. Brett