AccessTr.neT

Tam Versiyon: yedekleme yolunu değişitmek
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Kullandığım yine sitenizden aldığım bir yedekleme kodu var .aynı dosya içine yedekleme yapabiliyorum
Özellikle bunu kullanmamın sebebi çok hızlı bir şekilde başka form açılırken yedeklemeyi hemen yapıyor ancak tüm çabalarıma rağmen yedek yolunu değiştiremedim mesela(d:\yedek\ ) içine atmak istiyorum

daha önceden sorulmuş ama çözüme ulaşamadım.ilgilenen arkadaşlara teşekkür ederim


Dim strDB As String
Dim strBackupName As String
DoCmd.Hourglass -1
Let strDB = "ydk.mdb"
Let strBackupName = Date & "_" & strDB
Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName
Set fileObj = CreateObject("scripting.filesystemobject")
fileObj.CopyFile strDB, strBackupName, True
DoCmd.Hourglass 0
bunu kullan..
cevabınıza ve ilginize çok teşekkür ediyorum
verdiğiniz örnek yolu kendim göstermem gerekiyor ama.ben kodun içine yolu yazmak istiyorum ve özellikle bu kodu kullanmak istiyorum.


Path = CurrentProject.Path yerine path="C:\888\" yazdım olmadı.

Let strDB = Path & "\" & strDB yerine Let strDB = ="C:\888\" & "\" & strDB yazdım olmadı.
.
Ben bu örnekte kodun içine yolu yazmak istiyorum.

Path = CurrentProject.Path
Let strDB = Path & "\" & strDB
Let strBackupName = Path & "\YEDEK\" & strBackupName
Let strBackupName = Path & "\YEDEK\" & strBackupName
kodunu aşağıdaki ile değiştiriniz.

Let strBackupName = "d:\yedek\" & strBackupName
Ellerinize sağlık ..teşekkür ederim

işlem tamam