Pfad, Dateiname und Dateigröße auslesen

Sub Alter()
Dim TB, Pfad$, Ext$, i&, Jahr%, Z&
Set TB = Sheets("Tabelle2")
Pfad = "G:\DAT\Prj\32_Elbquerung_A20\07 Planungsgrundlagen\75 Pl-Grdl_ Straßenpl-OPB\Leitungsanfrage\" 'anpassen
Ext = "*.*"
Z = 1
Jahr = InputBox("Welches Jahr", , Year(Date))
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True 'auch die Unterverzeichnisse
.Filename = Ext
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
If Year(FileDateTime(.FoundFiles(i))) = Jahr Then
Z = Z + 1
TB.Cells(Z, 1) = FileDateTime(.FoundFiles(i)) 'Datum
TB.Cells(Z, 1).NumberFormat = "DD/MM/YYYY" 'Datum formatieren
'Link erzeugen******
ActiveSheet.Hyperlinks.Add Anchor:=TB.Cells(Z, 2), _
Address:=.FoundFiles(i), TextToDisplay:=Dir(.FoundFiles(i))
'Pfad eintragen******
TB.Cells(Z, 3) = Left(.FoundFiles(i), Len(.FoundFiles(i)) - Len(Dir(.FoundFiles(i))))
'Dateiart******
TB.Cells(Z, 4) = Right(.FoundFiles(i), 3)
End If
Next i
End With
'******Sortieren********
'    TB.Columns("A:C").Sort Key1:=TB.Range("A2"), Order1:=xlDescending, Header:=xlGuess, _
'        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'        DataOption1:=xlSortNormal
End Sub