[محمد العبيدي]

اخوية العزيز اذا تحب تنسخ ملف اثناء استخدامة فلازم تستخدم نسخ الملف كBinary

PHP كود :

Private Sub cmdBackupDataBase_Click()
      Dim X As String
      Open App.Path & "\file.mdb" For Binary As #1
      Open App.Path & "\file_Copy.mdb" For Binary As #2
      X = String(LOF(1) - 1, " ")
      Get #1, , X
      Put #2, , X
      Close
End Sub