Opret Bibliotek og søg efter filnavn

Måske kan du modificere den her kode lidt:
http://www.tek-tips.com/gviewthread.cfm/lev2/4/lev3/32/pid/707/qid/245837

måske den her?
http://www.andreavb.com/Files.html


Casper // http://ildstorm.dk

Sæt en reference til Microsoft Scripting Runtime

Dim myFSO As FileSystemObject

Private Sub Command1_Click()
  Set myFSO = New FileSystemObject
  If Not myFSO.FolderExists("C:\NyMappe") Then myFSO.CreateFolder "C:\NyMappe"
  Set myFSO = Nothing
End Sub

Private Sub Command2_Click()
  Set myFSO = New FileSystemObject
  If myFSO.FileExists("C:\NyMappe\Fil.txt") Then
    MsgBox "Filen er der"
  Else
    MsgBox "Filen er der ikke"
  End If
  Set myFSO = Nothing
End Sub