Merhaba arkadaşlar;


Alttaki kod ile kopyalama işlemi yapıyorum.Kopyalama yaparken Documents ve Desktop klasorunu almıyor.Onun altındaki dosya ve klasorleri kopyalabiliyorum.


O klasorleride yedeğini almak icin kodu nasıl yazmak gerekir.


Yardımcı olabilir misiniz ?


On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox "Yedekleme işleminiz başladı. Lutfen tamamlanana kadar bilgisayarınızı kapatmayınız.",,"Kopyalama"
zaman=year(date) & "_" & month(date) & "_" & day(date) & "_" & hour(now) & "_" & minute(now) & "_" & second(now)
objFSO.CopyFolder "C:\Users\User\Documents", "D:\Backup" & zaman, True
objFSO.CopyFolder "C:\Users\User\Desktop" , "D:\Backup" & zaman, True
MsgBox "Yedekleme tamamlanmıştır. ",,"Kopyalama"
__________________