Option Explicit
Private Dateizähler As Integer
Private Dateiliste() As String
Sub Test()
Dim MeinPfad As String
Dim MeineDatei As String
Dim x As Integer
Rem die Mappen im Dateiordner
MeinPfad = "C:\Test"
MeineDatei = ActiveWorkbook.Name
Dateizähler = 0
MappenSuche MeinPfad, "*.xl*", True
If Dateizähler = 0 Then Exit Sub
For x = 0 To Dateizähler - 1
If InStr(Dateiliste(0, x), MeineDatei) = 0 Then
Debug.Print Dateiliste(0, x)
Debug.Print Dateiliste(1, x)
End If
Next x
End Sub
Private Sub MappenSuche(imOrdner As String, Suchbegriff As String, Unterordner As Boolean)
Dim oOrdner As Object
Dim oDatei As Object
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
For Each oDatei In oFSO.GetFolder(imOrdner).Files
If oDatei.Name Like Suchbegriff Then
ReDim Preserve Dateiliste(0 To 1, Dateizähler)
Dateiliste(0, Dateizähler) = oDatei.Name
Dateiliste(1, Dateizähler) = oDatei.Path
Dateizähler = Dateizähler + 1
End If
Next
If Unterordner Then
For Each oOrdner In oFSO.GetFolder(imOrdner).Subfolders
MappenSuche imOrdner & "\" & oOrdner.Name, Suchbegriff, True
Next
End If
End Sub