Moving files via VBA - error handling if none to move?

[TheWennerWoman]

I have this

Sub MoveFiles()

Dim FSO As New FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")
   
' specify source and destination folders
sourcefile = "W:\COYA\interfaces\PAMLoader\failed\*"
DestFile = "W:\COYA\interfaces\PAMLoader\input\"
If sourcefile Is Nothing Then ' errors here with "Object Required"
    MsgBox "No files to process!"
    Exit Sub
End If

' move all files from source folder to destination folder
FSO.MoveFile Source:=sourcefile, Destination:=DestFile

End Sub

If there are no files to move, I'd like to exit gracefully. I added in the bit above but it doesn't like it.

What am I doing wrong?

Thanks in advance as always

 

[NdNoviceHlp]

It seems like this should work...

If FSO.FileExists(sourcefile) Then

HTH. Dave

 

[TheWennerWoman]

perfect, thanks so much!

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome. Dave