Move multiple files from multiple locations to a single directory 1

[at1knowitall]

I am needing to move files from \\whdb\new, \\whdb\new1 and \\whdb\new2 to \\whdb\admin directory.

If anyone can help that would be greatly appreciated.

Thanks,
Mark

 

[guitarzan]

Look into the FileSystemObject. For example:

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFile "\\whdb\new\*.*", "\\whdb\admin"
fso.MoveFile "\\whdb\new1\*.*", "\\whdb\admin"
fso.MoveFile "\\whdb\new2\*.*", "\\whdb\admin"