VB Code:
  1. Function FileExists(filename As [b]String[/b]) As Boolean

  2.   FileExists = (Dir(filename) > "")

  3. End Function