Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Tek tuşla yedekleme

Konu, 'Serbest Kürsü' kısmında Süleyman Uzunköprü tarafından paylaşıldı.

  1. Süleyman Uzunköprü

    Süleyman Uzunköprü Onursal Üye

    Kayıt:
    19 Haziran 2008
    Mesajlar:
    2.234
    Beğeniler:
    1.590
    Şehir:
    İstanbul-Fatih
    Seviye:
    Bilgisayarınızda bulunan belli klasörleri tek bir tuşla yedeklemek için;
    Bir Notepad dosyasına şunları kopyalayın (siz kendi yedeklemek istediğiniz adresleri yazın)

    Dim scr, tarih
    Set Scr = CreateObject("Scripting.FileSystemObject")
    Scr.CopyFolder "C:\MALİYET K SYSTEM", "D:\Yedekler\Planlama " & date & " " & right(1*now,4), True
    Scr.CopyFolder "C:\DatabaseYönet", "D:\Yedekler\Yönet " & date & " " & right(1*now,4), True
    Scr.CopyFolder "C:\MALİYET K SYSTEM", "\\2003server\2009 Datalar\Planlama\Planlama " & date & " " & right(1*now,4), True
    Scr.CopyFolder "C:\DatabaseYönet", "\\2003server\2009 Datalar\Planlama\Yönet " & date & " " & right(1*now,4), True
    MsgBox "Yedek Alındı", vbQuestion, "Süleyman UZUNKÖPRÜ" & " " & now

    - Adresi \\ şeklinde başlayanlar, aynı server'da başka makinelerin adreslerini ifade eder.
    - Notepad dosyasını dosya adı.vbs olarak kaydedin
    - Dİlerseniz zamanlanmış görevlere bu vbs doyasını yerleştirin, bilgisayaraınz saat başı otomatik yedek alsın.
     
  2. havzali

    havzali Kıdemli Üye

    Kayıt:
    7 Haziran 2009
    Mesajlar:
    276
    Beğeniler:
    60
    Şehir:
    Bu Dünya Benim Memleket :)
    Seviye:
    acronis true image programını kurmak işininizi görecektir. format atmanıza da gerek kalmaz 10- 20 dk içinde bilgisayarı eski haline geri döndürebilirsiniz.yedek alırkende % 50 sıkıştırma yapıyor .. yer tasarrufu müüthiş.. tavsiye ederim.