اشکال در پشتیبان گیری

[sajad_boj70]

با سلام خدمت همه دوستان
من یک برنامه نوشتم که توش باید از بانک اطلاعاتیم Back up بگیریم.
کدی که برای پشتیبان گیری استفاده کردم اینه


On Error Resume Next
Dim a As String, b As String, d As Variant
a = "E:\bank\bank.mdb"
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Form5.Show
Else
b = CommonDialog1.FileName
FileCopy a, b
d = MsgBox("ÝÇíá ÔÊíÈÇä ÇíÌÇÏ ÔÏ ", vbOKOnly, " ")
End If

کدی که نوشتم درست کار میکنه. اما اشکالش تو این خطه


a = "E:\bank\bank.mdb"
مشکل این کد اینه که این کد توی همه سیستم ها جواب نمیده.
چون من یک آدرس ثابت براش تعریف کردم.
حالا میشه بگید باید چیکار کنم که این برنامه تو همه سیستم ها جواب بده

[gohari244]

ببین دوست عزیز دو ره داره
1: اینکه دیتابیس رو کنار قایل اجرایی برنامه قرار بدی و این هم کدش
a=app.path & "\bank.mdb"


................................................

2:اینکه دیتا بیس رو داخل یک پوشه کنار فایل اجرایی قرار بدی و
a=app.path & "\folder\bank.mdb"

[joker_pok]

شما با اين روشي كه دوستمون گفته a=app.path & "\folder\bank.mdb" انجام بده چون شما درايو E دادي شايد تو يه سيستم ديگه درايو E وجود نداشته باشه ، بعد اينطوري اصلاح كن

text1.text=app.path & "\folder\bank.mdb" و text1 رو خاصيت لوك رو فعال كن كسي نتونه عوض كنه بعد مسير مقصد رو هم كه بلدي با CommonDialog1 فرا خواني كني ، بعد مسير مقصد رو هم بزار تو يه text ديگه كه اينطوري

text2.text=CommonDialog1.filename بعدش ميتوني با دستور كپي text1.text رو به text2.text كپي كني راحت

On Error Resume Next
Dim a As String, b As String, d As Variant
a = app.path & "\folder\bank.mdb"
CommonDialog1.Filter = "*.mdb|*.mdb"
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then
Form5.Show
Else
b = CommonDialog1.FileName
FileCopy a, b
d = MsgBox("ÝÇíá ÔÊíÈÇä ÇíÌÇÏ ÔÏ ", vbOKOnly, " ")
End If