Toplu klasör açmak

[cebelitarık]

Herkese merhaba

Arkadaşlar, "C" altında "2007" klasörü içine "01-100" isimli klasör içine toplu olarak 100 adet (örneğin 01 den başlayıp 100 de biten) klasör açmak istiyorum. Klasör isimlerini belirli bir excel dizininden aldırabiliriz diye düşünüyorum. Bu işi vba ile mümkünmüdür.
Yardımcı olacak arkadaşlara şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Aşağıda iki kod sunuyorum. Her iki koddada eğer klasör isimlerini hücreden almak isterseniz "a" yerine hücre adını yazın.

Sub klasorolustur()
For a = 1 To 100
MkDir ("c:\2007\01-100\" & Format(a, "000"))
Next
End Sub

veya

Sub Klasorolustur()
For a = 1 To 100
CreateObject("Scripting.FileSystemObject").CreateFolder "c:\2007\01-100\" & Format(a, "000")
Next
End Sub

 

[cebelitarık]

Sayın Leventm

ilgin için çok teşekkür ederim
Klasör isimlerini sıralı olarak açmayı sayenizde hallettik
projenin devamı için A1:A10 aralığına isimler vererek klasörleri açabilirmiyiz.
örnek dosya ektedir.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

[LEFT]Sub klasorolustur()
For a = 1 To [a65536].end(3).row
MkDir ("c:\2007\01-100\" & cells(a,"a")
Next
End Sub

[/LEFT]

veya

[LEFT]Sub Klasorolustur()
For a = 1 To [a65536].end(3).row
CreateObject("Scripting.FileSystemObject").CreateFolder "c:\2007\01-100\" & cells(a,"a")
Next
End Sub

[/LEFT]

 

[cebelitarık]

Sayın Leventm

çok teşekkür ederim çok güzel oldu.
2 yıldır her ay yüz klasör açıp ismini değiştiriyordum.
sağolasın.

İşine lazım olacak arkadaşlar için dosyanın son halini ekliyorum.

 

[1Al2Ver]

Emeği geçenlere teşekkür ederim

 

[hsayar]

teşekkürler

 

[kerem1111]

abi çalışmıyo bu yada ben beceremedim hata verito time error diye nası tama

 

[zünnun]

a1 hücresinde
a30 kadar isimler var kodun neresini değiştirsem klasör isimler hücre isimlerini alır

 

[pristineli45]

Program açmıyor arkadaşlar.İlgilenirseniz sevinirim