بدست اوردن نام پوشه ها در یک مسیر

[talent1]

میخوام لیست پوشه های یک مسیر رو بیارم توی لیست چجوری میشه
البته نمیخوام از ابزار dir استفاه کنم .

[talent1]

اول از منوی project قسمت Refrence تیک microsoft scripting runtime رو فعال کن،بعد توسط فانکشن زیر:


private sub maziar_folderfinder(basefolder as string)
dim fso as new filesystemobject
dim fsfolder as folder
dim subfolder as folder
dim i as integer
set fsfolder = fso.getfolder(basefolder)
for each subfolder in fsfolder.subfolders
doevents
i = i+1
list.additem subfolder
next subfolder
set fsfolder = nothing
msgbox "tedad kole folder haye mojod dar poshe " & basefolder & " : " & i
end sub

و فراخوانیش ب این صورت:


maziar_folderfinder "c:\"