Klasör oluşturmak

[k0081]

Merhaba arkadaşlar;

Günün tarihini isim olarak alacak ve içinde iki adet daha klasör oluşturacak button kodu nasıl olmalıdır..?

örnek ;

ilk oluşacak klasörün adı : 27_01_2013
içinde oluşturulacak klasörler : 01 ve 02

yardımcı arkadaşa şimdiden teşekkürler..

 

[halit3]

Merhaba arkadaşlar;

Günün tarihini isim olarak alacak ve içinde iki adet daha klasör oluşturacak button kodu nasıl olmalıdır..?

örnek ;

ilk oluşacak klasörün adı : 27_01_2013
içinde oluşturulacak klasörler : 01 ve 02

yardımcı arkadaşa şimdiden teşekkürler..

Bu konular daha önceden işlendi MkDir diye arama yaparsanız bir çok konu başlığı bulacaksınız. örnek linkler
http://www.excel.web.tr/f50/otomatik-klasor-dizin-olu-turma-t117049.html
http://www.excel.web.tr/f48/klasor-olu-turma-t39090/sayfa2.html


kod:

Sub klasoryap()
yer = ThisWorkbook.Path
dosya1 = Format(Now, " dd_mm_yyyy")
dosya2 = "01"
dosya3 = "02"
klasor1 = yer & "\" & dosya1
klasor2 = klasor1 & "\" & dosya2
klasor3 = klasor1 & "\" & dosya3
If CreateObject("Scripting.FileSystemObject").FolderExists(klasor1) = False Then
MkDir klasor1
End If
If CreateObject("Scripting.FileSystemObject").FolderExists(klasor2) = False Then
MkDir klasor2
End If
If CreateObject("Scripting.FileSystemObject").FolderExists(klasor3) = False Then
MkDir klasor3
End If
End Sub

 

[k0081]

halit3;

hocam teşekkür ediyorum tamamdır..

 

[halit3]

halit3;

hocam teşekkür ediyorum tamamdır..

İyi çalışmalar