[Excel]: Findet Dateien beim Ordner auslesen nicht

 Dim StDateiname As String
    Dim Dateiform As String
    Dim I As Long, TotFiles As Long
    Dim Suchpfad As String
    Dim OldStatus As Variant
    Suchpfad = "C:\Test"
    Dateiform = "*.pdf"
    Application.ScreenUpdating = True
    OldStatus = Application.StatusBar
    With Application.FileSearch
        .LookIn = Suchpfad
        .Filename = Dateiform
        MsgBox (TotFiles)
        If .Execute() > 0 Then
            TotFiles = .FoundFiles.Count
            Application.StatusBar = "Total " & TotFiles & " gefunden"
            For I = 1 To .FoundFiles.Count
                Application.StatusBar = "Datei: " & I & " von " & TotFiles
'               ergänzt Hyperlink, Dateigröße und Dateidatum
'               Dateiname abtrennen
                For InI = Len(.FoundFiles(I)) To 1 Step -1
               If Mid(.FoundFiles(I), InI, 1) = "\" Then
                        StDateiname = Mid(.FoundFiles(I), InI + 1, Len(.FoundFiles(I)) - InI + 2)
                        Exit For
                    End If
                Next InI
                Cells(I, 1) = .FoundFiles(I)
'                ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), _
'                    Address:=.FoundFiles(I), TextToDisplay:=StDateiname    ' Hyperlink
            Next I
        End If
    End With
    Application.StatusBar = OldStatus
    Application.ScreenUpdating = True