This function will enumerate all folders & subfolders beneath a given path,
UNC or mapped:

Function ListFolders(ByVal MyFolder As String)
Dim SubFold As Object, fso As Object, lst As String
Set fso = CreateObject("Scripting.FileSystemObject").GetFold er(MyFolder)
For Each SubFold In fso.SubFolders
ListFolders = ListFolders & "," & SubFold.Path
Select Case SubFold.Type
Case "File Folder"
lst = ListFolders(SubFold.Path)
If 0 < Len(lst) Then ListFolders = ListFolders & "," & lst
End Select
Next
ListFolders = Mid(ListFolders, 2)
Set fso = Nothing
Set SubFold = Nothing
End Function

NOTE:
1. This function is recursive: test it with a folder that is not too deep.
2. The function returns a comma delimited string.
3. The function does not check whether the argument you supply exists! If
this is an issue, use the PathFileExists API call to ensure that it does
exist.

USAGE:

xx = ListFolders("\\MyServer\MyPath")

or xx = ListFolders("c:\Winnt\System32")


" wrote:

I need some help with being able to programatically create a list of
all folders I have access to on a server. I am wanting to get this list
of directories (not files) using UNC paths. I have found all sorts of
topics on file searching and so no but not just for directories. I want
to be able to list all directories & sub-directories under
\\Myserver\Vol1\
Can someone point me in the right direction?