درخواست کمک برای نوشتن کد پشتیبان

[sjj]

با کد زیر من این کار رو تو برنامم انجام دادم

Private Sub Button1_Click()

  On Error Resum Next

  CDialog1.ShowSave

  I = PathFileExistsA(CDialog1.FileName)

  If I = 1 Then

    K = MsgBox"فایل وجود دارد.آیا مایل به بازنویسی هستید ؟", vbYesNo + vbQuestion, "بازنویسی")

    If K = 6 Then

      Call CopyFileA(App.Path + "\Data\VideoClub.mdb", CDialog1.FileName, 0)

    End If

  Else

    Call CopyFileA(App.Path + "\Data\VideoClub.mdb", CDialog1.FileName, 0)

  End If

End Sub

 

اگه خواستید بگید تا برنامش رو هم بزارم.