با سپاس خدمت دوستان

 

با تکه کد زیر میتونید نام فولدر های مسیر معین شده رو نمایش بدید .

 

موفق باشید.

Sub ListFolders(dir As String)
Dim list_files As List
Dim lista_folders As List
lista_folders.Initialize
    list_files=File.ListFiles(dir)
    For i= 0 To list_files.Size -1
        If File.IsDirectory(dir, list_files.Get(i))=True Then
            lista_folders.Add(list_files.Get(i))
        End If
    Next
Return lista_folders
End Sub