Aşağıdaki kodla programı bulunduğu dizine yedekliyorum..Bunu bulunduğu dizine değilde E sürücüsüne yedekleme yaptırmak istiyorum..nasıl bir düzeltme yapabilirim?..

Private Sub Komut17_Click()

Msg = Msg & "Tüm Kayıtlarınızın Yedeği Alınsın mı?" & vbCrLf & vbCrLf

 If MsgBox(Msg, vbQuestion + vbYesNo, "Veritabanı Yedekleme") = vbYes Then

 Dim fileObj As Object

Dim strDB As String

Dim strBackupName As String



DoCmd.Hourglass -1



Let strDB = "Tablolar.mdb"

Let strBackupName = Format(Date, "dd/mm/yyyy") & " " & Format(Time, "hh.mm") & " Yedek" & strDB

Path = CurrentProject.Path

Let strDB = Path & "\TABLOLAR\" & strDB

Let strBackupName = Path & "\YEDEK\" & strBackupName



Set fileObj = CreateObject("scripting.filesystemobject")



fileObj.CopyFile strDB, strBackupName, True



Msg = MsgBox("Kayıtlarınızın Yedekleme İşlemi Aşağıdaki Dizine Başarı ile Tamamlandı.:" & vbCrLf & vbCrLf & strBackupName, vbInformation, "DEMİRBAŞ TAKİP PROGRAMI YEDEKLEME")



DoCmd.Hourglass 0

 

 

 

 End If

End Sub

Sorumun cevabını yine forumumuzda aşağıdaki konuda buldum..Daha öncede aramıştım ama bulamamıştım..Ama neyse emeği geçen herkese teşekkürler...sorun çözülmüştür..
Ozan kardeşimin 6.mesajındaki örnekten yararlandım.. Emeği için kendisine ayrıca teşekkürler...

yedekleme programında varsayılan

Kendin pişir kendin ye olmuş.
Kolay Gelsin.

(07/11/2012, 13:19)Kur@l yazdı: Kendin pişir kendin ye olmuş.
Kolay Gelsin.

Teşekkürler sayın kur@l sizede kolay gelsin..