[Sonic]

HI!

Ich hab zwar noch nichts mit vbs gemacht aber die docu hab ich bei mir herumliegen.

Hab auch was gefunden das dir hoffentlich weiter hilft:

Das FileSystemObject hat die methoden FileExists und FolderExists

Exaple:

Function ReportFileStatus(filespec)
   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FileExists(filespec)) Then
      msg = filespec & " exists."
   Else
      msg = filespec & " doesn't exist."
   End If

   ReportFileStatus = msg
End Function

Function ReportFolderStatus(fldr)   Dim fso, msg
   Set fso = CreateObject("Scripting.FileSystemObject")
   If (fso.FolderExists(fldr)) Then
      msg = fldr & " exists."
   Else
      msg = fldr & " doesn't exist."
   End If
   ReportFolderStatus = msg
End Function

Hoffe das hilft dir!

lg