' Prüfen, ob eine Datei existiert
' (mit Wildcard-Unterstützung, wie ? und *)
Public Function FileExists(ByVal sFile As String) As Boolean
  Dim sTemp As String
 
  sTemp = Dir$(sFile)
  If Len(sTemp) > 0 Then FileExists = True
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de