Originally Posted by
mdmackillop
You cannot hyperlink to a Folder
[VBA]
Sub Test()
Dim arr() As String
ReDim arr(4000)
mypath = "c:\" '<===Change to suit
myname = Dir(mypath, vbDirectory)
Do While myname <> ""
If myname <> "." And myname <> ".." Then
If Left(myname, 3) = "100" Then
arr(i) = mypath & myname
i = i + 1
End If
End If
myname = Dir
Loop
ReDim Preserve arr(i - 1)
For j = 0 To i - 1
fname = Dir(arr(j) & "\*.doc")
If fname = "" Then
k = k + 1
Cells(k, 1) = arr(j)
Else 'for debug check
m = m + 1
Cells(m, 5) = arr(j) & "\" & fname
End If
Next
End Sub
[/VBA]