تهيه نسخه پشتيبان

[monitor]

سلام.
من يه برنامه دارم كه مي خوام از يه فايل bin نسخه پشتيبان تهيه كنم.
كد زير رو براي ايجاد نسخه پشتيبان نوشتم، اما بعد از اجرا مقدار curdir() عوض مي شه؛ يعني آدرسي كه توي commondilog لتخاب كنيم رو توي curdir() نشون ميده.


Private Sub cmdbackup_Click()
On Error GoTo en
Dim i As Long
Dim p As recdb
commondialog.Filter = "BIN File|*.bin"
commondialog.ShowSave
If commondialog.FileName = "" Then Exit Sub
Open CurDir() + "\DB.bin" For Random As #1
Open commondialog.FileName For Random As #2
i = 1
Do While Not EOF(1)
Get #1, i, p
Put #2, i, p
i = i + 1
Loop
Close #1
Close #2
MsgBox "äÓÎå ÔÊíÈÇä ÑÝÊå ÔÏ", vbOKOnly + vbInformation
en:
End Sub

ركوردي هم ساختم كه يك متغير به نام p از اون ركورد تعريف كردم

[romina2006]

اگه نمي خواي فايل اصلي و پشتيبان تو يك مسير باشن به جاي CurDir() از App.Path استفاده كن