07-03-14, 01:44 AM
08-03-14, 07:32 PM
ارجو فادة
08-03-14, 11:49 PM
السلام عليكم ورحمة الله وبركاته
جرب التالي
او
بالتوفيق
جرب التالي
كود :
Private Sub Command1_Click()
FileCopy App.Path & "\Database.mdb", Environ("userprofile") & "\Desktop\Database.mdb"
End Subاو
كود :
Private Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long
Private Sub Command2_Click()
CopyFile App.Path & "\Database.mdb", Environ("userprofile") & "\Desktop\Database.mdb", False
End Subبالتوفيق
10-03-14, 12:28 AM
مشكور اخوي الله يعطيك العافية