how to check if file is present 1

[din2005]

Hi i have this code which when button is pressed it will go and open the file, how do i take into account if the file is not present and give the user a msg saying file is not present!

Private Sub cmdCopyOrder_Click()

Set objWSHShell = CreateObject("WScript.Shell")
objWSHShell.Run "Z:\StockSystem\CopyOrders\" & Me.txtOrderNumber.Value & ".msg"

End Sub

 

[lordfidan]

I think the easiest way is probably using the Dir command.

Dir(filepath) it will return the same filename if it is there.

 

[MajP]

Dim objFileSystem As Object
Set objFileSystem =  
      CreateObject("Scripting.FileSystemObject")
 If objFileSystem.FileExists(strFileName) Then
 'code
 end if