Suche nach Datei mit Nummer in Dateiname
11.06.2015 10:40:55
daru
ich stehe vor einem mehr oder weniger kleineren Problem.
Ich möchte über VBA nach bestimmten .PDF Dateien suchen, welche im Dateinamen eine bestimmte Nummer enthalten.
z.B.
Pfad: C:\Users
Datei: test1234-10000_424495
Suchen möchte ich nur nach der letzten Nummer z.B. 424495
Dummerweise haben die Dateien nicht immer die selbe Länge deshalb scheitert es auch mit "Right".
Gibt es so eine Art Wildcard Suche mit * o.Ä.?
Etwas ähnliches habe ich hier gefunden. Dabei werden Textdateien nach einem Wort durchsucht:
Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
'Wort nach dem gesucht werden soll
sWord = "424495"
'Suche nach allen Textdateien im Verzeichnis c:\temp\xl
sSearchPath = "C:\Users\*.txt"
sPath = "C:\Users\"
FileName = Dir(sSearchPath)
If FileName "" Then
Do While FileName ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Recherche").Cells(AnzFound, 1) = FileName
Sheets("Recherche").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
'nächste Datei
FileName = Dir
Loop
End If
End Sub
Vielen Dank im Voraus.