السلام عليكم ورحمة الله
احاول عمل نسخة احتياطية لقاعدة البيانات بالدالة Filecopy
قمت بعمل زر براوس لتحديد مكان الحفظ في لابول يسمي Text1.text
وكان كود الزر Browse
اقتباسCommonDialog1.Filter = "Backup files (*.MDB) |*.MDB|"
CommonDialog1.FileName = "database"
CommonDialog1.ShowSave
Text1.Text = CommonDialog1.FileName
وزر save الذي يحتوي علي كود FileCopy
اقتباسFileCopy (App.Path & "\database.MDB"), Trim(Text1.Text)
MsgBox "تم عمل نسخة احتياطيه بنجاح", vbOKOnly + vbInformation, "Backup"
حيث تم تحديد مكان الحفظ في المسار الموجود في Text1.text
لكن النتيجة هي
اقتباسPermission denied
فما هو الخطأ الذي وضعته في الكود؟
ده الكود مش خارق للطبيعه ولا حاجه
