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

Beğeniler: 0
Favoriler: 0
İzlenmeler: 1011
favori
like
share
UmuDo Tarih: 22.12.2007 00:05
sağol elıne saglık sadece tasatırımını bız yapacazz
By_ergen Tarih: 15.12.2007 14:48
paylasım icin tesekkurler