Klasör oluşturma

[ozuberk]

Üstatlar merhaba "D:\Deneme" klasörünün içerisine aşağıda örnek vermiş olduğum gibi bir kod nasıl yapabilirim?

1. Aylık klasör oluşturulması (01.11.2010 gibi) (Mümkünse hafta sonları olmasın)
2. Bu klasörlerin içine ayrıca iki adet klasör oluşturulması (01.11.2010 klasörünün içine Deneme1 ve Deneme2 klasörü oluşturulması)
3. Deneme1 klasörünün içine "deneme1.xls ve deneme2.xls" adında excel sayfalarının kopyalanması
4. Deneme2 klasörünün içine "deneme3.xls ve deneme4.xls" adında excel sayfalarının kopyalanması

 

[f_desat]

Sub Klasor_Olustur()
Dim ds
Dim trh
trh = (Date)
Set ds = CreateObject("Scripting.FileSystemObject")
ds.CreateFolder "C:\Deneme" & trh
End Sub

geşiştirebilirsin

 

[ozuberk]

Teşekkürler elinize sağlık