visual basic ile dosya kopyalama

[cavanoos]

Merhaba arkadaşlar;
Const OverwriteFiles = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder"C:\Users\User" , "D:\Backup", OverwriteFiles

Yukarıdaki kod ile User profilini kopyalamaya başlıyor fakat profil kullanımda olduğu için izin verilmedi hatası veriyor buna göre;

1. Kullanıcı profili aktif kullanımda iken VBScript ile profil komple kopyalanabilirmi?
2. Eğer kopyalanabiliyor ise script çalıştırıldığında "YEDEKLEME İŞLEMİNİZ BAŞLADI LÜTFEN PC' NİZİ KAPATMAYINIZ" şeklinde bir uyarı verebilirmi?
3. Her gün yedek alırken ayrı bir klasör oluşturarak ve o klasöre o günün tarihini yazabilirmi?
4. Kopyalama işi bittiğinde yine yukarıdaki gibi "YEDEKLEME İŞLEMİNİZ BAŞARILI BİR ŞEKİLDE TAMAMLANMIŞTIR" uyarısı yazabilirmi.


Yardım edebilir misiniz ?

 

[cavanoos]

Merhaba arkadaşlar;

Alttaki kod ile kopyalama işlemi yapıyorum.Kopyalama yaparken Documents ve Desktop klasörünü almıyor.Onun altındaki dosya ve klasörleri kopyalabiliyorum.

O klasörleride yedeğini almak için kodu nasıl yazmak gerekir.

Yardımcı olabilir misiniz ?

On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
MsgBox "Yedekleme işleminiz başladı. Lütfen 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"

 

[Zeki Gürsoy]

Merhaba,

"XCOPY" komutu kullanarak bir .bat dosyası ile yedekleme işinizi görmez mi?

 

[cavanoos]

Zeki Bey;

Denemedim ama olabilir.

Rica etsem kodu gönderebilir misiniz ?