I tried the following code and it worked

Sub Test()
Dim fs As New FileSystemObject
fs.CopyFolder "C:\Temp1", "c:\Temp2"
End Sub

Please note that C:\Temp1 should already be there. C:\Temp2 will be created.
Also when looking at the FileExplorer to check if the folder has been
created, press the F5 key to refresh the list of folders/files.

Alok Joshi

"Andibevan" wrote:

Hi All,

Why does the following code not work it gets an error Run-Time error '450'
"Wrong number of arguments or invalid property assignemnt".?

Sub copy_copy
Set FS = CreateObject("Scripting.filesystemobject")

FS.copyfolder.copyfolder "S:\temp_Start\*", "E:\Test\"

End Sub

Thanks

Andi