VBA function to retreive the names of all subfolders within a given folder

A

Anthony

How do I write a
VBA function to retreive the names of all subfolders within a given folder?

thx
 
D

Douglas J. Steele

Dim strFolder As String
Dim strSubfolder As String

strFolder = "C:\MyFolder\"
strSubfolder = Dir(strFolder, vbDirectory)
Do While Len(strSubfolder) > 0
If strSubfolder <> "." And strSubfolder <> ".." Then
Debug.Print strFolder & strSubfolder
End If
strSubfolder = Dir()
Loop
 
A

Anthony

Excellent!

ty

Douglas J. Steele said:
Dim strFolder As String
Dim strSubfolder As String

strFolder = "C:\MyFolder\"
strSubfolder = Dir(strFolder, vbDirectory)
Do While Len(strSubfolder) > 0
If strSubfolder <> "." And strSubfolder <> ".." Then
Debug.Print strFolder & strSubfolder
End If
strSubfolder = Dir()
Loop
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

MS Access - Form - Upload document to Sharepoint Server (whoes folder is mapped to my PC) from Acce 0
Function to delete a folder and its content 8
Need on subfolders that are numbers 1
Creating a compressed folder 1
Folders & Subfolders 7
vba powerpoint pasting named shape in selected named slides 0
find a folder by name 1
how can I retreive a contact that I have deleted by mistake? 1

Top