Use the Dir function.


VB Code:
  1. Private Function IsDirExisting(ByVal sDir As String) As Boolean

  2.     IsDirExisting = CBool(Len(Dir$(sDir, vbDirectory)))

  3. End Function

  4.  
  5. Private Function IsFileExisting(ByVal sFile As String) As Boolean

  6.     IsFileExisting = CBool(Len(Dir$(sFile)))

  7. End Function