(31-10-16, 10:13 PM)محمد العبيدي كتب : اخوية العزيز اذا تحب تنسخ ملف اثناء استخدامة فلازم تستخدم نسخ الملف ك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 


(01-11-16, 01:47 AM)Ahmed_Mansoor كتب : أهلا بك أخي الكريم , جرب الثلاث طرق , الطريقة الأولى طريقة الأخ "محمد العبيدي" وهاذي طريقتين إضافيه :

- الطريقة الثانية : هي بإستخدام مكتبة الـ Microsoft Scripting Runtime حيث لابد أولا من إضافتها لمشروع برنامجك وذلك بالذهاب إلى قائمة "Project " أو "مشروع" في شاشة برنامج الفيجول بيسك ثم إختيار الأمر "References" أو "مراجع" ثم بعد ظهور الشاشة الخاصه بأسماء المكتبات إبحث عن إسم المكتبه التي بإسم  Microsoft Scripting Runtime ثم ضع علامة صح عليها ثم "OK" أو "موافق" ثم إستخدم الكود التالي :

PHP كود :

Private Sub Command1_Click()

Dim FSO As New FileSystemObject

FSO.CopyFile "D:\db1.mdb", "C:\db1.mdb"
DoEvents

Set FSO = Nothing

End Sub 


- ملاحظه :- إذا إستخدمت الطريقة الثانية , يجب إرفاق ملف المكتبة المستخدمه وهو بإسم scrrun.dll يجب إرفاقه مع ملفات تثبيت برنامجك عند تحزيم ملفات برنامجك , وهذا الملف موجود في جهازك في هذا المسار : C:Windows\System32

- الطريقة الثالثة : وهي بإستخدام دالة API , قم بإضافة هذا الكود في أعلى كود الفورم الذي تريد إستخدام كود النسخ فيه :

PHP كود :

Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" _
       (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, _
       ByVal bFailIfExists As Long) As Long

Private Function CopyFileA(OldFileName As String, NewFileName As String) As Boolean
On Error Resume Next: Err.Clear

If CopyFile(OldFileName, NewFileName, False) <> 1 Then
   CopyFileA = False
Else
   CopyFileA = True
End If

End Function 


ثم إستخدم كود النسخ في المكان الذي تريد في الفورم هكذا :

PHP كود :

Private Sub Command1_Click()

If CopyFileA("D:\db1.mdb", "C:\db1.mdb") = True Then
   MsgBox "تم النسخ بنجاح"
Else
   MsgBox "لم يتم النسخ"
End If

End Sub