FileCopy(Application.StartupPath & "\Dosyam\abc.mdb", Application.StartupPath & "\" & Yeniisim.Text & ".mdb")

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 .

bu kod ne işe yarıyor
dosyayı kopyalamak için mi
yoksa dosya bilgisayarın neresinde olursa olsun bulunması içinmi
bir de
bunu ilk ekleyen sn.azul20 bunu Access de nasıl kullanabiliriz
teşekkürler

Bu kod, programın bulunduğu klasörün altındaki "Dosyam" klasöründeki "abc.mdb" isimli dosyayı, programın bulunduğu klasöre "Yeniisim" textboxuna yazdığınız değere göre isimlendirerek kopyalar.

Accesste aşağıdaki kodu kullanarak "datalar.mdb" isimli dosyanızın aynı klasörde olup olmadığını kontrol edebilirsiniz.

Verdiğiniz Cevap İçin Teşekkürler ayhan2122 1. Sorumun Cevabını da çözdüm Belki Arkadaşların İşine Yarayabilr. Kodları ve Dosyayı Ekte Yolluyorum
Başarılar.

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

Merhaba Bu Konuyla ilgili bir sorum olacak
Yedeklenmiş veri tabanını programa aktarırken
Kill("Veritabani.mdb")
komutundan önce silinebilmesi için çalışan veri tabanını durdurmam gerekiyor kodla bunu yapıp sildikten sonra tekrar çalıştırabıleceğım bir kod var mı ?
Teşekkürler.