File Exists

Public Function GetElapsedTime(tStart, tStop) As String

Function FileExists (strPath As String) As Integer 
Dim lngRetVal As Long 
On Error Resume Next 
 lngRetVal = Len(Dir$(strPath)) 
 If Err Or lngRetVal = 0 Then 
    FileExists = False 
 Else 
           FileExists = True 
 End if 
End Function