Başlangıç > 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


Reklamlar
  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: