طلب مساعدة بارك الله فيكم [الأرشيف]

لطفي القيصر

23-02-2017, 12:18 AM

السلام عليكم ورحمة الله وبركاته
أنا بصدد إنشاء أسطوانة دينية وواجهت مشكلة أريد أكواد تمكن من حفظ ملفات Listbox:

''حفظ ملف mp3 على حاسوبه وإختيار مكان الحفظ''
''حفظ ملف pdf على حاسوبه وإختيار مكان الحفظ''
وبارك الله فيكم إخوتي

ياسرهتهت

23-02-2017, 02:36 AM

بسم الله الرحمن الرحيم
اخي العزيز هذا سؤال مكرر كثيرا
ويوجد العديد من الاجابات والطرق في قسم الاستفسارات
وهو عبارة عن نسخ ملفات من الاسطوانه للجهاز ... ؟ اليس كذالك ؟
توجد اكواد مباشرة في البرنامج تقوم بذالك
في قائمة الاكشن .......... File
نجد الـــــ File.Copy
فقط نحدد الملف المراد نسحة ونوعه ومكانه في الاسطوانة
ونحدد الفولدر او المجلد المراد النسخ له

---------- ------------- ------------
وفي سؤالك تريد نسخ ملف من قائمة ListBox

علي اساس انك تخزن اسم الملف ItemText
ومسار الملف في ItemData

هذا الكود يقوم بالعملية

Select = ListBox.GetSelected("ListBox1");
if (Select ~= nil) then
folder = Dialog.FolderBrowse("حدد مكان نسخ الملف", "C:\\");
ItemData = ListBox.GetItemData("ListBox1",Select[1]);
File.Copy(ItemData, folder, true, true, false, true, nil);
File.Open(folder, "", SW_SHOWNORMAL);
else
Dialog.Message("لم تحدد", "يجب التحديد");
end

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

--