Anasayfa > Kodlar > Visual Basic 6 ile Yedekleme programı yapmak

Visual Basic 6 ile Yedekleme programı yapmak


Basit bir yedekleme programı

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


TD Software


  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: