1. Ana Sayfa
  2. Bilgisayar
  3. Yedekleme Programı Yapalım(Visual Basic)

Yedekleme Programı Yapalım(Visual Basic)

Son güncelleme: 21.12.2007 23:05
fiber_optic fiber_optic foto
  • Gerekenler;
    1 Adet Command Button
    2 Adet TextBox
    Çalışma Mantığı Kısaca;
    Program C: altında Yedek.bat dosyasını aramaz her seferde Yedek.bat dosyasını kendisi oluşturur ve sizin bir sıkıntınız olmaz.
    Text1 ve Text2 ye C:\Temp\ örneğindeki gibi sonuna dosya veya *.* belirtmeden girilmelidir. Çünkü kod içerisinde ben *.* diyerek tümünü almasını istedim, istediğiniz gibi oynayın.. Kolay gelsin.

    Private Sub Command1_Click()
    'Yedek.bat dosyası oluşturuluyor.
    DOSYA = "C:\Yedek.bat"
    Open DOSYA For Output As #1
    Print #1, "xcopy " & Text1 & "*.* " & Text2
    Close #1
    'Dosya Kapatılıyor.
    Y = MsgBox("Yedeklemeyi Başlatmak Üzeresiniz.?", vbQuestion + vbOKCancel, "Yedekleme İşlemi")
    If Y = 1 Then
    'Yedekleme Başlatılıyor.
    Shell "C:\yedek.bat", vbNormalFocus
    MsgBox (Text1 & " altındaki dosyalarınız " & Text2 & " altına yedeklendi."), vbOKOnly + vbCritical, "Yedek İşlemi"
    Else
    End If
    End Sub
#08.10.2007 21:31 0 0 0
By_ergen By_ergen foto
  • paylasım icin tesekkurler
#15.12.2007 13:48 0 0 0
UmuDo UmuDo foto
  • sağol elıne saglık sadece tasatırımını bız yapacazz:)
#21.12.2007 23:05 0 0 0