Public Function IsGoodGetFile() As Boolean
' verify correct GetPath returns
' returns True if all tests are passed
  
  ' replace "GetFile04" with the name of your function to test
  Dim fFailed As Boolean
  
  If GetFile04("c:\dir\file.txt") <> "file.txt" Then Stop: fFailed = True
  If GetFile04("c:\dir\file") <> "file" Then Stop: fFailed = True
  If GetFile04("c:\dir") <> "dir" Then Stop: fFailed = True
  If GetFile04("file.txt") <> "file.txt" Then Stop: fFailed = True
  If GetFile04("") <> "" Then Stop: fFailed = True
 
  ' note: FSO returns "dir"!
  If GetFile04("c:\dir\") <> "" Then Stop: fFailed = True
  
  ' well done
  IsGoodGetFile = Not fFailed
  
End Function