السلام عليكم ورحمة الله وبركاته،،
بسم الله الرحمن الرحيم معليش ممكن الإخوان مافهموا السؤال لأن الكود مش مرفق عموما هذا هو الكود كما تشاهدون مهمته ارسال قاعدة بيانات للقرص المرن ...... لكن ماذا لو كان هذا القرص تالف - أو غير موجود - أو كمية البيانات اكبر من مساحة القرص ...... كيف يمكنني ارسال مسجات للمستخدم بذلك .... من يساعدني في تحسين أداء هذا الكود له الأجر من رب العباد ودمتم سالمين
Private Sub أمر144_Click()
On Error GoTo Err_أمر26_Click
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
MsgBox "أنتظر قليلا بينما يتم النسخ"
fs.CopyFile "C:\n22\2005.mdb", "A:\", True
MsgBox "تم نقل البيانات بنجاح "
Err_أمر26_Click:
Exit Sub
End Sub