Option
Explicit
Private
fso
As
Object
Sub
main()
Set
fso = CreateObject(
"Scripting.FileSystemObject"
)
With
ThisWorkbook.Worksheets(1)
.Cells.Clear
.Range(
"A1"
).Value =
"Pfad und Link"
.Range(
"A1"
).Value =
"Dateiname"
End
With
DurchsucheOrdner "C:\Test\"
End
Sub
Sub
DurchsucheOrdner(
ByVal
sPfad
As
String
)
Dim
fil
As
Object
Dim
fldr
As
Object
For
Each
fldr
In
fso.GetFolder(sPfad).SubFolders
Call
DurchsucheOrdner(fldr.Path)
Next
fldr
For
Each
fil
In
fso.GetFolder(sPfad).Files
With
ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).
End
(xlUp)
.Parent.Hyperlinks.Add Anchor:=.Offset(1, 0), Address:=fil.Path
.Offset(1, 1).Value = fil.Name
End
With
Next
End
Sub