Directory lookup with hyperlinks?

[Graham182]

Hi I have the Macro below that will search throught a directory and list the .Xls in it. What I am now trying to do with this is to create a hyperlink from the results that will take me right to the spreadsheet?

Is there anything i can easily put in Thanks to anyone that can help

Sub Dirlist()
Dim i As Long
With Application.FileSearch
.NewSearch
' *** Change Folder name to suit ***
.LookIn = "C:\MyDocuments"
.SearchSubFolders = True

Dir (Folder & "\" & Extension)
.Filename = "*.xls*"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i, 1).Value = Right(.FoundFiles(i), InStr(StrReverse(.FoundFiles(i)), "\") - 1)
Next

End If
End With
End Sub

 

[mike31z]

Look at this reference:

http://www.cpearson.com/Excel/FolderTree.aspx


Looks like what you want.

 

[Graham182]

It seem to have the feel of what i want but because i'm doing this at my work place i can't install anything new.
If its possible just to add something to the original macro?

 

[Graham182]

is the anyway just to allow hyperlink in the macro?

 

[Graham182]

Updated Tags