DIm sFile As String
Dim sPath As String
 
' Wichtig: exakte Pfadangabe mit abschließendem Backslash
sPath  "c:\bla bla bla\"
 
sFile = Dir$(sPath & "*.psi")
Do While sFile <> ""
  If sFile <> "." And sFile <> ".." Then
    MsgBox "Erste gefundene Datei: " & sFile
    Exit Do
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de