FileCopy all files 1

[GP]

I need to copy a few folders and files to a new location. How can I copy the all the files.

I tried

filecopy(strSrcDir & "pictures\*.*", strNewDir & "pictures\*.*&quot

but get the error "Run-time error '75': Path/File Access Error.

Any help.

 

[TheBitDoctor]

GP:

The FileCopy method may not be able to use wildcard characters. Try using a specific file name. You may have to use "Dir" first and feed the results to this method. Or, you can use a command shell and perform a copy there using wildcard characters:

ID = Shell("CMD /C Xcopy C:\Data\Test\*.* C:\Data\Test2 /E&quot

Ron

 

[PHV]

Another way is to use the FileSystemObject of the scripting engine:
Set fso=CreateObject("Scripting.FileSystemObject&quot
fso.CopyFolder strSrcDir & "pictures\*.*", strNewDir & "pictures\"

Hope This Help
PH.