Imports System.IO



Public Class Form3

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 'veritabanı yedekle

 Dim zaman As New Date 'burada zaman değişkenimizi atadık

 Dim uzanti As String 'burada ise uzantısını atadık "Kayıt.mdb" gibi

 zaman = DateTime.Today 'zaman isimli değişkenimize "today" ile bugünün tarihini verdik

 uzanti = (".mdb") 'uzanti isimli değişkenimizde ise Uzantımızı 

 Dim SaveFileDialog1 As New SaveFileDialog

 SaveFileDialog1.Title = "SaveFileDialog Öğreniyoruz" 'Açılacak olan pencerenenin başlığı

 SaveFileDialog1.DefaultExt = Path.GetFileName(zaman) & uzanti ' Kaydedeceğimiz dosyaya otomatik bi uzantı verdik.

 SaveFileDialog1.FileName = (zaman)

 SaveFileDialog1.Filter = "mdb |*.mdb"





 If SaveFileDialog1.ShowDialog() = DialogResult.OK Then



 FileCopy("Veritabani.mdb", SaveFileDialog1.FileName)



 MsgBox("Veritabanı Yedekleme İşlemi Tamamlanmıştır, Veritabanı" & SaveFileDialog1.FileName & " Klasörünün İçindedir", MsgBoxStyle.Information, "İşlem")



 Else

 MsgBox("Uyarı")

 End If



 End Sub



 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 Dim uzanti As String

 've sürekli olarak kullanıcıdan dosya ismi değiştirmesini ister.

 Dim dosyadi As String

 Dim zaman As New Date

 dosyadi = ("Veritabani")

 uzanti = (".mdb")

 Dim dosya As New FileInfo("\Veritabani.mdb")

 Dim Ac As New OpenFileDialog

 'bakın Burada ac diye bir değişken atadık 

 Ac.FileName = vbNullString

 Ac.Filter = "Tüm Dosyalar (*.*) |*.*" 'Hangi Tip Dosyalar Açacağımızı soruyor

 'Ac.InitialDirectory = ("G:\EVRAK TAKİP yedek\database\") 'burada nereden açılacağı

 If Ac.ShowDialog = Windows.Forms.DialogResult.OK Then

 Select Case File.Exists((dosyadi) & (uzanti))

 Case True

 'arkadaşlar kill silme kodudur. yedeğimiz dosyaya alırken aynı dosya olduğu için hata verecektir.

 'eski veritabanını siliyoruz.

 Kill("Veritabani.mdb")

 'File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))

 File.Copy(Ac.FileName, (dosyadi) & (uzanti))



 MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Değiştirildi", MsgBoxStyle.Information, "Uyarı")

 Case False



 ' File.Copy(Application.StartupPath & "\Veritabani.mdb", Application.StartupPath & "\" & (dosyadi) & (uzanti))

 File.Copy(Ac.FileName, (dosyadi) & (uzanti))

 MsgBox(Path.GetFileName(Ac.FileName) & " Dosyası Başarı İle Taşındı", MsgBoxStyle.Information, "Uyarı")

 Case Else

 MsgBox("İşlemi Tekrar Deneyiniz.", MsgBoxStyle.Information, Me.Text)

 End Select



 End If

 End Sub

End Class