Sub tester2()
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFolder "c:\Test1", "c:\Test2"

End Sub


Worked for me in Excel 2000 on Windows 2K

Regards,
Tom Ogilvy


"neil" wrote in message
...
Thanks Tom,
I am trying the following code...

FileSystemObject.CopyFolder "c:\test1\*", "c:\test2\"

im not sure exactly what FileSystemObject is and if I am
using it correctly....

Neil

-----Original Message-----
Your second argument should be

c:\test2\

without the wildcards.

See the help on filecopy - it is pretty clear on what is
required and what
the behavior is.

Regards,
Tom Ogilvy


"Neil" wrote in message
...
I have looked at the copyfolder method, but cant seem
to
get it to work, can anyone tell me the code to copy
c:\test1\*.* and all its sub folders to c:\test2\*.* ?

Many thanks in advance.

This is a good newsgroup BTW.

Neil


.