Scripting File System Nesnesi ile Alt Alta Klasör

Sub AltAltaKlasorOlustur()
Dim evn As Object
Set evn = CreateObject("Scripting.FileSystemObject")
'klasör varlığını denetleyelim, istediğimiz klasör ve alt klasörler yoksa oluşturalım
surucu = "c:\": kl1 = "Kl1\": kl2 = "alt1\"
kl3 = "alt2\": kl4 = "alt2\": kl5 = "alt4"
If Not evn.FolderExists(surucu & kl1) Then
        evn.CreateFolder (surucu & kl1)
        evn.CreateFolder (surucu & kl1 & kl2)
        evn.CreateFolder (surucu & kl1 & kl2 & kl3)
        evn.CreateFolder (surucu & kl1 & kl2 & kl3 & kl4)
        evn.CreateFolder (surucu & kl1 & kl2 & kl3 & kl4 & kl5)
End If
End Sub