Klasör Altındaki Klasör isimlerini alma

[maxcilopez]

Merhaba Arkadaşlar Benim belirleyeceğim bir klasörün içerisinde yer alan klasör isimlerini almak istiyorum. Fakat alt dizindeki klasör isimlerini almayacak. Sadece o dizindeki klasör isimlerini alacak. Bu konuda kod olarak desteğinizi rica ederim.

 

[PLİNT]

Merhaba
Aşağıdaki gibi işinize yararmı?

Private Sub CommandButton1_Click()
Set klasorsec = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
yol = klasorsec.Items.Item.Path
Set nesne = CreateObject("Scripting.FileSystemObject")
Set klasor = nesne.GetFolder(yol)
If klasor.Subfolders.Count > 0 Then
For Each alt In klasor.Subfolders
s = s + 1
Cells(s, 1) = alt.Name
Next:
 End If
End Sub

 

[antonio]

Alternatif olsun:

Sub klasor_isimlerini_listele()
Dim fso As Object, fold As FileDialog, kls As String, diger As Object
Set fso = CreateObject("scripting.FileSystemObject")
Set fold = Application.FileDialog(msoFileDialogFolderPicker)
With fold
    .Title = "Bir klasör seçiniz..."
    .AllowMultiSelect = False
    .InitialFileName = Application.DefaultFilePath
    If .Show <> -1 Then Exit Sub
    kls = .SelectedItems(1) & "\"
End With
For Each diger In fso.getfolder(kls).subfolders
    isim = isim & diger.Name & vbCrLf
Next diger
MsgBox isim, vbInformation, "antonio"
End Sub