Dateien im aktuellen Ordner auslesen
Mister
vor langer Zeit habe ich folgendes Makro aus dem Forum das die Dateien im angegebenen Ordner ausliest und in der Tabelle "PDF" auflistet. Wie muss ich das Makro ändern damit die Dateien aufgelistet werden die sich im gleichen Ordner befinden wie die Datei die das Makro beinhaltet?
Sub ListFiles()
'On Error Resume Next
Dim fso As FileSystemObject
Dim fol As Folder
Dim rng As Range
Dim ws As Worksheet
Dim zeile As Long
Set fso = New FileSystemObject
Set fol = fso.GetFolder("\\daten2\intra\Info-Dienstplan\Celle\")
Set ws = Sheets("PDF")
zeile = 2
For Each fil In fol.Files
If fil.Name Like "*.pdf" Then
ws.Cells(zeile, 1) = fil.Name
' Falls der Pfad dabei sein soll:
' ws.Cells(zeile, 1) = fil.Path
ws.Cells(zeile, 2) = fil.DateLastModified
zeile = zeile + 1
End If
Next fil
Set rng = ws.Range("A2").CurrentRegion
rng.Sort Key1:=ws.Range("a2"), _
Order1:=xlDescending
End Sub
Danke und Gruß
Martin