Snasui Excel Forum

Code: Select all

Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 2
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory

Cells(r, 3).Hyperlinks.Add Anchor:=Selection, Address:= _
        "Directory"
ListFile = Dir()
Loop
End Sub

Code: Select all

Sub ListFileInFolder()
Directory = "D:\2" & "\"
r = 1
ListFile = Dir(Directory, vbNormal)
Do While ListFile <> ""
r = r + 1
Cells(r, 2) = ListFile
Cells(r, 3) = Directory
Range(Cells(r, 3), Cells(r, 3)).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        Directory & ListFile, _
        TextToDisplay:=Directory & ListFile
ListFile = Dir()
Loop
End Sub