I get an error if the directory is empty and it stops running 1

[at1knowitall]

I get an error if any of the three directories are empty, is there a way to skip over the movefile if the directory is empty?

Thanks,
Mark

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

 

[dm4ever]

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fso.MoveFile "\\whdb\new\*.*", "\\whdb\admin"
fso.MoveFile "\\whdb\new1\*.*", "\\whdb\admin"
fso.MoveFile "\\whdb\new2\*.*", "\\whdb\admin"
On Error Goto 0

--------------------------------------------------------------------------------
dm4ever
My philosophy: K.I.S.S - Keep It Simple Stupid

 

[guitarzan]

And here's another way, which can be modified to suit your needs:

Dim fso, f, iCount
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("\\whdb\new")
iCount = f.Files.Count
wscript.echo "Total files: " & iCount