Nasıl Yedek Alırım

[TRABLUS]

Herkese Kolay gelsin.
Þirketimizde ana bilgisayarda tüm kullanıcılara açık bir klasörümüz var.Bütün kullanıcılar her türlü işlerini bu klasörde yapıyorlar.Fakat bunun şu kötülüğü var kullanıcılardan birisi bu klasörün içindeki herhangi bir klasörü silince server de otomatik olarak siliyor ve geri dönüşüm kutusundan bu klasörü geri kurtaramıyorsunuz.Benim isteğim bu klasörün serverde hergün otomatik olarak gece saat 01:00 da yedek alması ve her yedek alışında bir önceki yedeği silmesi.
Bunu yapmamda yardımcı olursanız şimdiden teşekkür ederim.

 

[xxrt]

ana bilgisayarda tüm kullanıcılara açık bir klasörümüz var

Klasörümüzün adı xx olsun.
Yedek Alınacak yer ise
c:\Belgelerim olsun..
Sonuçta şu şekil alacak:
Kaynak Dosya Yeri: c:\xx
Hedef Yer Kopyalanacak Yer: c\Belgelerim

Sub Auto_Open()
'Dosya açılırken eski yedeği siliyor
Kill ("c:\Belgelerim\xx\*.*")
'daha sonra yeni yedeği yedekliyor.
Set Copy = CreateObject("Scripting.FileSystemObject")
Copy.CopyFolder "C:\xx", "C:\Belgelerim\"
End Sub

Burada sizin istediğiniz her gece saat 01:00'da yedek alması bu dosyanın açılması ile mümkün olacağı,ancak Görev zamanlayıcısı bu işi yapar.Ama Gece PC açık ise..!

 

[TRABLUS]

Sayın xxrt,yardımlarınız için çok teşekkür ederim.Bu kod herhalde bayağı bir işime yarıyacak.

 

[hakanbolat]

PEKİ KLASÃ?RÜ İSTEDİÐİMİZ YERE NASIL TAÞIYABİLİRİZ..