Tarih ve Saatli Klasör oluşturma ?

[Gorarr]

Selamlar, yapamadığım şey;

"D:\yedek" içerisine her seferinde, (tarih ve saat) ekleyerek yeni klasör oluşturup oraya kopyalanması

örn: D:\yedek\20112012_1050

Yardımlarınız için şimdiden teşekkür ederim.

Private Sub Form_Load()

Dir1.Path = "C:\arsiv" 'kopyalanacak klasör
Dir2.Path = "D:\yedek" 'kopyalayacağımız yer


Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder Dir1.Path, Dir2.Path
Set fso = Nothing
End Sub

 

[hamitcan]

Linkleri inceleyin.
http://www.excel.web.tr/f48/oto-kayyt-ve-yedek-alma-t103529.html
http://www.excel.web.tr/f48/tarihi-dosya-ady-yapmak-yedekleme-t79292.html