الجارف
07-02-2025, 09:03 PM
السلام عليكم ورحمة الله
أرجو المساعدة في التعديل على هذا الكود
هذا الكود التالي ... لإنشاء مجلد على سطح المكتب
ومن ثم نسخ محتويات المجلد الذي تم إنشاؤه
إلى مجلد في داخل الاسطوانة
Folder.Create(_DesktopFolder.."\\Names");
allfiles = File.Find(_DesktopFolder.."\\Names", "*.*", false, true, nil, nil);
path = _SourceFolder.."\\AutoPlay\\Docs\\Names"
for i,x in pairs (allfiles) do
File.Copy(x, path, true, true, false, true, nil);
end
المطلوب التعديل على هذا الكود وفق الآتي :
1- قبل إنشاء مجلد على سطح المكتب التأكد من وجود مجلد سابق بنفس الاسم
2- في حال لم يوجد مجلد بنفس الاسم يقوم البرنامج بإنشاء المجلد
3- عند عملية النسخ : إذا لم يوجد أي ملف تظهر رسالة مفادها المجلد فارغ
4- في حال وجود ملفات يتم نسخها إلى مجلد بداخل الاسطوانة
5- إذا وجدت ملفات بنفس الاسم يسألني البرنامج هل ترغب الاستبدال أم الدمج
6- إذا لم يوجد ملفات بنفس الاسم تتم عملية النسخ
7- ظهور رسالة مفادها تمت عملية النسخ بنجاح
أرجو المساعدة في التعديل على هذا الكود
هذا الكود التالي ... لإنشاء مجلد على سطح المكتب
ومن ثم نسخ محتويات المجلد الذي تم إنشاؤه
إلى مجلد في داخل الاسطوانة
Folder.Create(_DesktopFolder.."\\Names");
allfiles = File.Find(_DesktopFolder.."\\Names", "*.*", false, true, nil, nil);
path = _SourceFolder.."\\AutoPlay\\Docs\\Names"
for i,x in pairs (allfiles) do
File.Copy(x, path, true, true, false, true, nil);
end
المطلوب التعديل على هذا الكود وفق الآتي :
1- قبل إنشاء مجلد على سطح المكتب التأكد من وجود مجلد سابق بنفس الاسم
2- في حال لم يوجد مجلد بنفس الاسم يقوم البرنامج بإنشاء المجلد
3- عند عملية النسخ : إذا لم يوجد أي ملف تظهر رسالة مفادها المجلد فارغ
4- في حال وجود ملفات يتم نسخها إلى مجلد بداخل الاسطوانة
5- إذا وجدت ملفات بنفس الاسم يسألني البرنامج هل ترغب الاستبدال أم الدمج
6- إذا لم يوجد ملفات بنفس الاسم تتم عملية النسخ
7- ظهور رسالة مفادها تمت عملية النسخ بنجاح