VB Code:
  1. '' Does a given file exist ?
  2. Private Function Exists(ByVal strFullPath As String) As Boolean
  3.     Exists = Len(Dir(strFullPath)) <> 0
  4. End Function