otomatik klasör (dizin) oluşturma

[tukayf]

tarayıcı isimli klasör içerisine 2012 yılı içerisinde 2012-01, 2012-02, 2012-12 gibi klasör oluşturup bu klasörlerin içerisine de 01.01.2012, 02.01.2012 ya da 01 ocak 2012 vb şeklinde klasör oluşturmak istiyorum. forumda baktım ama bulduklarımdan pek bir şey anlayamadım. şimdiden cevaplar için teşekkürler.

 

[serqet]

Burada detaylıca anlatılmış, kendinize uyarlıyabilirsiniz.

http://www.excel.web.tr/f48/klasor-olu-turma-t39090/sayfa2.html

 

[tukayf]

A_______B
a
_______a1
_______a2
b
_______b1
_______b2
c
..
.. belirttiğiniz link ile klasör oluşturabiliyorum ancak ordaki arkadaşın da sorduğu gibi "a" sütununda yer alan klasörlerin altına "b" sütununda yer alan klasörleri oluşturmak istiyorum bunu nasıl yapabilirim saygılarımla.

 

[Orion1]

Aşağıdaki kodlar işinizi görecektir..

Sub klasor_59()
Dim yilklasor As String, ayklasor As String
Dim gunklasor As String, i As Integer, aylar()
yilklasor = InputBox("KLASÖR YILINI GİRİNİZ :", "KLASÖR OLUŞTURMA", Year(Date))
If yilklasor = "" Then
    MsgBox "YIL KLASÖRÜ YAZMADINIZ!!" & vbLf & "İŞLEM İPTAL OLDU!!", vbCritical, "U Y A R I"
    Exit Sub
End If
MkDir ThisWorkbook.Path & "\" & yilklasor
aylar = Array("", "Ocak", "Şubat", "Mart", "Nisan", "Mayıs", "Haziran", "Temmuz", "Ağustos", "Eylül", "Ekim", "Kasım", "Aralık")
For i = 1 To 12
    ayklasor = ThisWorkbook.Path & "\" & yilklasor & "\" & yilklasor & " " & aylar(i)
    MkDir ayklasor
    For k = 1 To Day(DateSerial(1, i + 1, 0))
        MkDir ayklasor & "\" & DateSerial(yilklasor, i, k)
    Next k
Next i
MsgBox "İşlem Tamamlandı.", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[tukayf]

teşekkürler sayın hocam zihninize sağlık.