Mehrere Files mit ähnlichen Namen vorhanden ?
20.07.2015 13:59:25
Peter
Wie kann man herausfinden, ob in einem Verzichnis nur eine File-Version oder mehrere File-Versionen mit dem gleichen Anfangs-Namensmuster vorhanden sind ? Suche ich zum Beispiel mit :
Dir(strPath & strTeil & "?.?.xlsx")
.. und ich habe Muster1.1.xlsx und Muster1.2.xlsx im Verzeichnis, findet er nur Muster1.1.xlsx und bricht dann ab.
Hier die ganze Sub, wie ich einen Dateiname herausfinde, allerdings ohne die beschriebene Anforderung.
Sub funktioniert :
Sub DateinameSuchen()
'In diesem Fall wird untersucht, ob eine Datei zum Beispiel namens "Book1.1" vorhanden ist.
Dim strDateiname, strPath, strTeil As String
Dim strGefunden As String
strPath = Application.ActiveWorkbook.Path & "\"
'Suchstring
strTeil = "Book"
strDateiname = Dir(strPath & strTeil & "?.?.xlsx")
If strDateiname > "" Then strGefunden = strDateiname
'Suchstring
strTeil = "Book"
strDateiname = Dir(strPath & strTeil & "?.?.xlsx")
If strDateiname > "" Then strGefunden = strDateiname
'Suchstring
strTeil = "Book"
strDateiname = Dir(strPath & strTeil & "?.?.xlsx")
If strDateiname > "" Then strGefunden = strDateiname
'Suchstring
strTeil = "Book"
strDateiname = Dir(strPath & strTeil & "?.?.xlsx")
If strDateiname > "" Then strGefunden = strDateiname
MsgBox strGefunden
End Sub