27/03/2012, 01:17
FileCopy(Application.StartupPath & "\Dosyam\abc.mdb", Application.StartupPath & "\" & Yeniisim.Text & ".mdb")
kod bu kendine göre uyarlarsın .
kod bu kendine göre uyarlarsın .
(27/03/2012, 01:17)ayhan2122 yazdı: [ -> ]FileCopy(Application.StartupPath & "\Dosyam\abc.mdb", Application.StartupPath & "\" & Yeniisim.Text & ".mdb")
kod bu kendine göre uyarlarsın .
Dim Dosya As String
Dim Durum As String
Dosya = CurrentProject.Path & "\datalar.mdb"
Durum = Dir(Dosya)
If (Durum = "") Then
MsgBox "dosya yok, bulunamadı."
Else
MsgBox "dosya bulundu korkmayın, emin ellerde :)"
End If
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