اين الخلل في المشروع

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

بسم الله الرحمن الرحيم

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



http://www.4shared.com/rar/1z0hrAnY/My_Project.html


بعد فتح المشروع تجد زرين

اضافة مجلد واضافة ملف

لكن يظهر خلل

فهل من حل لهذا الخلل

بارك الله فيكم

[عبود عبود عبود عبود]

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

بالنسبة لكود نسخ ملف " إضافة ملف " :

--
path = Shell.GetFolder(SHF_DESKTOP);
sFile = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files (*.*)|*.*|", "", "dat", true, false);
if sFile~="CANCEL" then
  for i, j in pairs( (sFile)) do
    StatusDlg.Show(MB_ICONNONE, false);
    File.Copy(j, path, true, true, false, true, nil);
    StatusDlg.Hide();
  end
end

وطبعا أدخلت لك فية إمكانية نسخ أكثر من ملف فى نفس الوقت " خاصية المالتى " عن طريق الضغط على زر كونترول من لوحة المفاتيح لتحديد أكثر من عنصر .

وبالنسبة لنسخ مجلد بأكمله " إضافة مجلد " الكود هو :

--
path = Shell.GetFolder(SHF_DESKTOP);
sFile = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);
if sFile~="CANCEL" then
  N_name = String.SplitPath(sFile).Filename;
  Folder.Create(path.."\\"..N_name);
  StatusDlg.Show(MB_ICONNONE, false);
  File.Copy(sFile.."\\*.*", path.."\\"..N_name, true, true, false, true, nil);
  StatusDlg.Hide();
end

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

طبعا عن طريق تغيير المسار للمتغير " path " فقط لا غير

إذا وجدت لك مشكلة فى التغيير " Tell Me "

بالتوفيق للجميع

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

بسم الله الرحمن الرحيم
بارك الله فيك رحمه الله والديك

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

كذلك هل ممكن اضافة زر ينسخ الملف المحدد او المجلد من القائمة الشجرية trre الى الجهاز او مكان معين

[عبود عبود عبود عبود]

فى المرفقات تجد ملف مفتوح به زر لنسخ ملف أو مجموعة ملفات من الجهاز إلى البرنامج

أيضا تجــــد زر لنسخ مجلد من البرنامج إلى الجهاز .

و يمكن تحديد المسارات بديالوج إختيارى أيضا .

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

بارك الله فيك

[خادم المسلمين خادم المسلمين]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[المتعملق المتعملق]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[ياسرهتهت ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[النصل القاطع النصل القاطع]

هناك بعض الوظائف الخفية و الدفينة فى الأوتوبلاى و التى لا يلحظها الكثيرين

1- إظهار مربع حفظ بإسم

file=Dialog.FileBrowse(false, "Save As", "c:\\", "All Files (*.*)|*.*|", "", "", false, true); 

2- التعامل مع نتيجة المربع و خيارات المستخدم

File.Copy("c:\\example.exe", file[1], false, false, false, false, nil); 

[عبدوعزيز عبدوعزيز]

مشكووووووووووووووور