Klasör sayısını bulmak

[mehmet dur]

Merhaba
Ben, D sürücüsündeki "yedekler" klasörünün içerisindeki klasör sayısını bulmak istiyorum.
Teşekkür ederim.

 

[tamer42]

Merhaba
Ben, D sürücüsündeki "yedekler" klasörünün içerisindeki klasör sayısını bulmak istiyorum.
Teşekkür ederim.

deneyiniz...

Sub FolderColl()
    Dim oFSO As Object
    Dim folder As Object
    Dim myPath As String
    Dim subfolders As Object
   
    Set oFSO = CreateObject("Scripting.FileSystemObject")
   
    myPath = "D:\Yedekler"
   
    Set folder = oFSO.GetFolder(myPath)
   
    Set subfolders = folder.subfolders
   
    MsgBox subfolders.count
   
    Set oFSO = Nothing
    Set folder = Nothing
    Set subfolders = Nothing


End Sub

 

[mehmet dur]

Tamer Bey teşekkür ederim. Kodları denedim çalışıyor.
Elinize emeğinize sağlık

 

[tamer42]

rica ederim..