Dim sPath As String
Dim sFile As String
 
' Pfad
sPath = "c:\ordner\"
 
' erste Datei mit der Endung .txt ermitteln
sFile = Dir$(sPath & "*.txt")
If sFile <> "" Then MsgBox sPath & sFile

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de