أرجو مساعدتي ( حفظ ملف )

[تواتي كريم]

السلام عليكم و رحمة الله وبركاته
شكرا لكم جميعا لطالما استفدت من مواضيعكم التي ازاحت عنا كل لبس كان يعترض طريقنا في تعلم البرنامج وشكر خاص الى الاخ ابو بلقيس
طلبي اليوم هو : في كيفية جلب ملف من داخل التجميعية و حفظه على الجهاز يعني دون اللجوء الى فتح الملف الملفات هي ( وورد او بدياف )

[محمود خليل]

File.Copy("C:\\MyDir\\*.*", "C:\\DestDir\\", true, true, false, true, nil);

ده للنسخ من الى
ظبط المسارات

نفذ الجاى ده مهم جدا
من قوائم المشروع اختار
project
setting
advanced
http://im71.gulfup.com/Sy4jJG.jpg

و الا الكود مش حيتنفذ فى ويندوز سبعة

[الأمل القادم]

شكرا بارك الله فيك
أخي محمود قد يكون الاختيار الاخير هو الانسب لجعل البرنامج يعمل كمسؤول

شكرا

[محمود خليل]

شكرا بارك الله فيك
أخي محمود قد يكون الاختيار الاخير هو الانسب لجعل البرنامج يعمل كمسؤول

شكرا
العفو

شوف يا سيدى
الخيار الأخير غلط

ممكن غلطة بسيطة زى دى تكلفة فلوس جامدة جدا جدا
لو عملتها فى برنامج بفلوس

لكن لو فى برامج مجانية
متاخدش بالك الخيار التانى و لا التالت مش حتفرق

[الأمل القادم]

لطالما استعملت الخيار الأخير و يعمل جيدا في هكذا وضعيات

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

شكرا

[محمود خليل]

لطالما استعملت الخيار الأخير و يعمل جيدا في هكذا وضعيات


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


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


شكرا

العفو

[الأمل القادم]

موفق ولك كل الأعذار

[تواتي كريم]

شكرا لك اخ محمود خليل موضوعك افادني كثيرا دمتم ذخرا لنا

[الأمل القادم]

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

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

بعد تحديده ستظهر نافذة أخرى لتحدد مسار الحفظ مع مراعاة نفس التسمية و اللاحقة

result = Dialog.FileBrowse(true, "Locate File", "AutoPlay\\Docs\\", "All Files (*.*)|*.*|", "", "", false, false);
path_parts = String.SplitPath(result[1]);
c = String.Mid(path_parts.Extension, 2, String.Length(path_parts.Extension));
SaveAs = Dialog.FileBrowse(false, "SaveAs", _DesktopFolder, "All Files (*.*)|*.*|", path_parts.Filename, c, false, false);
if SaveAs[1] ~= "" and SaveAs[1] ~= "CANCEL" then
File.Copy("AutoPlay\\Docs\\"..path_parts.Filename..path_parts.Extension, SaveAs[1], true, true, false, true, nil);
error = Application.GetLastError();
if (error ~= 0) then
Dialog.Message("Error", _tblErrorMessages[error], MB_OK, MB_ICONEXCLAMATION);
end
end


موفق:abc_138:

ملاحظة : المحاولة مرسلة لك كما وردت

[تواتي كريم]

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

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

بعد تحديده ستظهر نافذة أخرى لتحدد مسار الحفظ مع مراعاة نفس التسمية و اللاحقة

result = dialog.filebrowse(true, "locate file", "autoplay\\docs\\", "all files (*.*)|*.*|", "", "", false, false);
path_parts = string.splitpath(result[1]);
c = string.mid(path_parts.extension, 2, string.length(path_parts.extension));
saveas = dialog.filebrowse(false, "saveas", _desktopfolder, "all files (*.*)|*.*|", path_parts.filename, c, false, false);
if saveas[1] ~= "" and saveas[1] ~= "cancel" then
file.copy("autoplay\\docs\\"..path_parts.filename..path_parts.extension, saveas[1], true, true, false, true, nil);
error = application.getlasterror();
if (error ~= 0) then
dialog.message("error", _tblerrormessages[error], mb_ok, mb_iconexclamation);
end
end


موفق:abc_138:

ملاحظة : المحاولة مرسلة لك كما وردت

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