[VB.NET]

اخواني لدي قاعدة بيانات اكسس 2007 اريد كود يقوم بنسخ قاعدة البيانات من مجلد المشروع الى سطح مكتب الجهاز
ارجو الافادة

[VB.NET]

ارجو فادة

[AL_BRNS]

السلام عليكم ورحمة الله وبركاته

جرب التالي

كود :

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

بالتوفيق

[VB.NET]

مشكور اخوي الله يعطيك العافية