اين الخلل في هذا الكود

[محمد بن أحمد أبو حذيفة]

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

هذا الكود لنسخ ملف من اسطوانة الى مكان يحدده المستعمل
DESKTOP = Shell.GetFolder(SHF_DESKTOP);

storage_path = Dialog.FolderBrowse("ÇÎÊÑ ãßÇä ÍÝÙ ÇáãáÝ", DESKTOP);
-- Show the status dialog.
StatusDlg.Show();


File.Copy(e, storage_path, true, false, false, true, nil);



-- Check the error code for the last action.
error = Application.GetLastError();

-- Hide the status dialog.
StatusDlg.Hide();

-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
else

Dialog.Message("ÔßÑÇ", "áÞÏ Êã äÓÎ ÇáãáÝ Åáì ÇáãÌáÏ ÇáãØáæÈ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

--------------------------------------------------------------------------------------------






لكن يعطني خطا عند الغاء النسخ

[عبود عبود]

الكود بعد التعديل :

--
result = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", false, false);
DESKTOP = Shell.GetFolder(SHF_DESKTOP);
storage_path = Dialog.FolderBrowse("ÇÎÊÑ ãßÇä ÍÝÙ ÇáãáÝ", DESKTOP);
if storage_path~="CANCEL" and result~="CANCEL" then
-- Show the status dialog.
StatusDlg.Show();
File.Copy(result[1], storage_path, true, false, false, true, nil);
-- Hide the status dialog.
StatusDlg.Hide();
Dialog.Message("ÔßÑÇ", "áÞÏ Êã äÓÎ ÇáãáÝ Åáì ÇáãÌáÏ ÇáãØáæÈ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end






:abc_152:

[abohmam]

بارك الله فيك أخى عبود على المتابعة

ان شاء الله يكون هو المطلوب لإخينا محمد

حياكم الله

[محمد بن أحمد أبو حذيفة]

بارك الله فيك جزاك الله خيرا


الكود يعمل لكن يظهر صفحتيان
انا اريد ان تظهر الصفحة الثانية فقط ويتم الحفظ

http://i1213.photobucket.com/albums/cc465/soumod/sshot-3_zps058b1bdc.png

http://i1213.photobucket.com/albums/cc465/soumod/sshot-1_zps40972ad8.png

[عبود عبود]

الكود يعمل لكن يظهر صفحتيان
انا اريد ان تظهر الصفحة الثانية فقط ويتم الحفظ



صراحة لم أفهم المعنى الذى تقصدة !!!!
هل تقصد الكود الذى طرحته أنت أم الكود بعد التعديل ؟؟؟؟؟

إذا كنت تقصد الكود بعد التعديل فقد تم ضبط الكود ليظهر صفحتين كما تقول فالأولى يمكنك منها إختيار الملف الذى تريد نسخة
والثانية لتحديد المجلد المراد الحفظ فيه أو النسخ إليه .

أما إذا كنت تريد ظهور صفحة إختيار مجلد الحفظ فقط وأنت قمت بتحديد الملف الذى تريد نسخة مسبقا كما فى المثال التالى سوف يتم نسخ الملف GridEx.docx :


--
--ÅÓã æãÓÇÑ ÇáãáÝ ÇáãÑÇÏ äÓÎÉ ÈÇáÖÈØ
e = "AutoPlay\\Docs\\GridEx.docx"
DESKTOP = Shell.GetFolder(SHF_DESKTOP);
storage_path = Dialog.FolderBrowse("ÇÎÊÑ ãßÇä ÍÝÙ ÇáãáÝ", DESKTOP);
if storage_path~="CANCEL" then
-- Show the status dialog.
StatusDlg.Show();
File.Copy(e, storage_path, true, false, false, true, nil);
-- Hide the status dialog.
StatusDlg.Hide();
Dialog.Message("ÔßÑÇ", "áÞÏ Êã äÓÎ ÇáãáÝ Åáì ÇáãÌáÏ ÇáãØáæÈ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end

[محمد بن أحمد أبو حذيفة]

بارك الله فيك اخي
ما اريده بالضبط هو نسخ ملف بعد تحديده من ليست بوكس في مكان يعينه المستعمل للاسطوانة

[عبود عبود]

إذن ما تم تقديمه كافيا أم تريد شيئ آخر أو تعديل آخر ؟.

[محمد بن أحمد أبو حذيفة]

إذن ما تم تقديمه كافيا أم تريد شيئ آخر أو تعديل آخر ؟.


الكود الاخير يطهر صفحة واحدة لكن لا يتم النسخة
اقصد بعد اخيار مكان الحفظ لا نجد فيه الملف

[عبود عبود]

ضع مثالك المفتوح لإجراء تعديلات مناسبة له

[ربيع]

خلي البرنامج مسؤول " وينداوز8"

[عبود عبود]

السيرفر لا يعمل معى أعد محاولة الرفع من جديد

[عبود عبود]

مرحبا بك أخى ........ هذا الكود بعد التعديل بعد الإطلاع على الملف المفتوح :


--
DESKTOP = Shell.GetFolder(SHF_DESKTOP);
CheckBox1 = CheckBox.GetChecked("CheckBox1");
CheckBox2 = CheckBox.GetChecked("CheckBox2");
if (CheckBox1 == true) then
ade = Current.."\\AutoPlay\\Audio\\1\\";
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáÃæáì ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
elseif (CheckBox2 == true) then
ade = Current.."\\AutoPlay\\Audio\\2\\"
sd = Folder.DoesExist(ade);
if sd~=true then
Folder.Create(ade);
end
fileade = Dialog.FileBrowse(true, "ÇÎÊÑ ÇáãáÝÇÊ ÇáÊí ÊÑíÏ ÅÖÇÝÊåÇ", _DesktopFolder, "MP3 File (*.MP3)|*.MP3|", "", "mp3", true, false);
if (fileade[1] ~= "CANCEL") and (fileade ~= nil) then
StatusDlg.Show();
for index, path in pairs(fileade) do
File.Copy(path, ade, true, true, false, true, nil);
end
StatusDlg.Hide();
Dialog.Message("ÔßÑÇ", "áÞÏ Êã ÅÖÇÝÉ ÇáãáÝÇÊ Åáì ÇáÕÝÍÉ ÇáËÇäíÉ ÈäÌÇÍ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end
else
Dialog.Message("Notice", "ÚÝæÇ...íÌÈ ÇÎÊíÇÑ ÅÍÏì ÇáÕÝÍÊíä ÃæáÇ Ëã ÇÎÊÑ ÇáãáÝÇÊ.", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end


برجاء بعد ذلك عند وضع الأسئلة وضع ملف مفتوح أو الكود بالكامل حتى تحصل على إجابات مختصرة وكاملة ومناسبة للعمل

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
وعليكم السلام ورحمة الله وبركاته
بارك الله فيك كنت اظن ان الكود وحده كافي على العموم
المرة القادمة ان شاء الله ارفق الملف المفتوح

رحمك الله اخي

[عبود عبود]

برجاء بعد ذلك عند وضع الأسئلة وضع ملف مفتوح أو الكود بالكامل حتى تحصل على إجابات مختصرة وكاملة ومناسبة للعمل
بارك الله فيك
:abc_138:

[محمد بن أحمد أبو حذيفة]

للاسف اخي الكود لا يعمل ماهو مطلوب
الرجاء اعادت المحاولة
والصبر على اخيك

الملف المفتوح
http://www.4shared.com/rar/pF1hqVeLce/1_online.html



هذا الكود يعمل ويحفظ لكن عند الغاء الخفظ تظهر رسالة خطا
DESKTOP = Shell.GetFolder(SHF_DESKTOP);

storage_path = Dialog.FolderBrowse("اختر مكان حفظ الملف", DESKTOP);
-- Show the status dialog.
StatusDlg.Show();


File.Copy(e, storage_path, true, false, false, true, nil);



-- Check the error code for the last action.
error = Application.GetLastError();

-- Hide the status dialog.
StatusDlg.Hide();

-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);

--------------
else

Dialog.Message("شكرا", "لقد تم نسخ الملف إلى المجلد المطلوب", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end

[عبود عبود]

إليك الملف المفتوح بعد التعديل :


https://www.mediafire.com/?26dpssoq4tsf3c6

قم بالمعاينة ثم قم بطلب أى تعديلات أخرى فمرحبا بك فى أى وقت .

[محمد بن أحمد أبو حذيفة]

بارك الله فيك
بعد المعاينة وجدت مايلي

زرالحفظ الذي في الصفحة الاولى لايحفظ الملفات ولكن عند الغاء الحفظ لا تظهر رسالة الخطا
اما زر الحفظ الذي في الصفحة الثانية فيحفظ لكن عند الغاء الحفظ تظهر رسالة الخطاء

كما ان المشكلة التي كانت تظهر عند فتح الاسطوانة وهي فارغة دون صوتيات زالة
لكن زر الحذف الموقت لا يعمل
وزرالحذف النهاءي يعمل لكن تظهر رسالة خطا

[عبود عبود]

التعديل الرئيسى الذى ركزت علية فى الصفحة 4


إذن أنت تريد مراجعة شاملة لكافة الصفحات ........ حسنا سأبدأ معك المساعدة لتعديل كل الصفحات

انتظرنى أخى

[محمد بن أحمد أبو حذيفة]

تم التعديل على كود الحفظ
DESKTOP = Shell.GetFolder(SHF_DESKTOP);

storage_path = Dialog.FolderBrowse("ÇÎÊÑ ãßÇä ÍÝÙ ÇáãáÝ", DESKTOP);
if storage_path~="CANCEL" then
-- Show the status dialog.
StatusDlg.Show();
File.Copy(e, storage_path, true, false, false, true, nil);

-- Check the error code for the last action.
error = Application.GetLastError();

-- Hide the status dialog.
StatusDlg.Hide();

-- If an error occurred, display the error code message.
if (error ~= 0) then
Dialog.Message("Errror", tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);

--------------
else

Dialog.Message("ÔßÑÇ", "áÞÏ Êã äÓÎ ÇáãáÝ Åáì ÇáãÌáÏ ÇáãØáæÈ", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

end
--------------------------------------------------------------------------------------------
end

في الصفحة الثانية والثالثة
جربه فهو يعمل

[عبود عبود]

قم بالمعاينة مرة أخرى على الملف التالى و أعلمنى بالخطأ و المطلوب إذا كان يوجد شيئ :


https://www.mediafire.com/?rmac2l4ceirbuc4

:abc_152:

[ياسرهتهت]

بسم الله الرحمن الرحيم
:abc_052::abc_052::abc_052:
موفق بإذن الله ... لك مني أجمل تحية .

[محمد بن أحمد أبو حذيفة]

بارك الله فيكم اخي ورحمك الله حيا و ميتا
المشلكة بقيت في صفحة الحذف

حذف الملفات من الصفحة الثانية

الحذف المؤقت يعمل
الحذف النهائي يعطي رسالة خطا عندما يكون هناك ملف واحد فقط
النقل من 2 الى 1 يظهر رسالة خطا عندما يكون ملف واحد فقط اما اذا كان ملفين واردنا نقل واحد فيعمل

حذف الملفات من الصفحة الاولى
النقل من 1 الى 2لايعمل حتى تعمل تراجع ثم تعود لصفحة الحذف تجد الملفات موجودة في خانة الحذف الخاصة بالصفحة 2
الحذف النهائي يعطي رسالة خطا عندما يكون هناك ملف واحد فقط

[عبود عبود]

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

عذرا على تأخر الرد بسبب ظروف العمل نستكمل اليوم إن شاء الله

[عبود عبود]

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

أهـــلا بك من جديد

يمكنك أخى معاينة الملف التالى بعد إجراء التعديلات التى طلبتها


https://www.mediafire.com/?kd07lcs64p61d7s

[محمد بن أحمد أبو حذيفة]

بسم الله الرحمن الرحيم
بارك الله فيك
واعلم ان الله في عون العبد ماكون في عون اخيه
وانت بهذه المساعدة تعين كل مسلم

اسال الله العلي القدير باسمائه الحسنى وصفاته العليا ان يسكنك فسيح جناته ويرحمك ويكرم والديك
امين
بقي شيئ واحد
كيف يمكن اخفاء الملفات بحيث يظهر فقط ملف الاوتوران
علما اني احفظ العمل بصيغة
hard drive folder

حيث انه عند ضغطه وفتح الملف تظهر كل الملفات لكن عند الاستخراج لا يظهر الى ملف التشغيل

[عبود عبود]

قم بمراجة المواضيع المثبتة فى قسم الشروحات والخاصة بحماية المحتوى هناك موضوعين لأخونا أبوبلقيس

سوف تفيدك :abc_152: إن شاء الله

[محمد بن أحمد أبو حذيفة]

رحمك الله اخي عبود ورحم كل الخوى في المنتدى

[ثامر أبو بلقيس]

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

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
وددت المشاركة في هذا المشروع المفيد لكن لابد أن أخبرك :

الحماية بواسطة الدمج لا تعطي نتائج في هذا المشروع للأسباب التالية :
1 - المحتوى غير ثابت من حيث الحجم فالمستخدم يتحكم فيه بعملية استدعاء
صوتيات و حذفها أي محتويات لم تكن معنية بالحماية

2 - الأكواد تقوم بالكتابة على القرص حيث تنشأ مجلد Docs سيتم
إنشائه خارج ما دُمج و فيه الملفات الصوتية المستدعاة و بالتالي لن تتعرف الأكواد على
المسارات لأن الدمج كله متعلق بالمسارات داخليا و هذا المجلد صار خارج الملف المحمي

3 - قناة الميديابلير لا يدعمها الدمج في الاصدارات الاخيرة للوينداوز
عكس عنصر الفيديو و مشروعك مبني على الميديابلير
بالتوفيق :abc_138:

[عبد الهادي بهاب]

معكم متابع شكرا للسائل و المسؤول