ich möchte in einem Verzeichnis prüfen ob eine Datei die mit Bsp. 123456 beginnt mehrfach vorkommt.
Geht das?
Falls ja wie?
Danke euch
Sub doppelte_Dateien_Verzeichnis() '
Dim Pfad As String, Ext As String, Datei As String
Dim Doppelt As String, Anz As Integer
Ext = "*.xls*"
Pfad = "E:\Excel\Temp\" '**** mit \
Doppelt = "123456"
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
If Left(Datei, Len(Doppelt)) = Doppelt Then
Anz = Anz + 1
End If
If Anz > 1 Then
MsgBox "mehrfach vorhanden"
Exit Sub
End If
Datei = Dir() ' nächste Datei
Loop
End Sub