طلب ملف مفتوح لبرنامج ضغط الملفات وفك الضغط

[غريب يا فؤادي غريب يا فؤادي]

السلام عليكم

من فضلكم احتاج ملف مفتوح او كود
لعمل برنامج ضغط بالاوتوبلي

فكرة البرنامج ( عند النقر على الزر الاول يتم فتح ملف Folder Browse ) يختار المجلد المراد ضغطه
ثم يظهر له ( file Browse ) يختار مكان الحفط



الزر الثاني ( لفك الضغط )
( عند النقر على الزر يتم فتح file Browse ) يختار منها المستخدم الملف المراد فك ضغطه
بعد ان يختار الملف
يظهر له ( Folder Browse ) يختار مكان الاستخراج

[غريب يا فؤادي غريب يا فؤادي]

توصلت لعمل البرنامج
شكرا لكم

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

السلام عليكم

من فضلكم احتاج ملف مفتوح او كود
لعمل برنامج ضغط بالاوتوبلي

7

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

قي زر الضغط ضع الكود التالي

archive_files = Dialog.FolderBrowse("Files to Add", _DesktopFolder);
if (archive_files ~= "CANCEL") and (archive_files ~= "") then
   StatusDlg.Show();
  found = File.Find(archive_files, "*.*", true, false);
    if (found) then
    Zip.Add(_DesktopFolder.."\\NewArchive.zip",found, true, "", 5, nil, false);
    StatusDlg.Hide();
    File.ExploreFolder(_DesktopFolder, SW_SHOWNORMAL);
    end
end 

امافي زر فك الضغط ضع الكود

   result = Dialog.FileBrowse(true, "Load File", _DesktopFolder, "Microsoft Word Document (*.*)|*.*|All Files (*.*)|*.*|", "", "", false, true);

-- If CANCEL was not chosen, then let's get the file path
if (result[1] ~= "CANCEL") then
Distination = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder);

 StatusDlg.Show();
 Zip.Extract(result[1], {"*.*"}, Distination, true, true, "", 3, nil);
 StatusDlg.Hide();
end 

بالتوفيق

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

توصلت لعمل البرنامج
شكرا لكم

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

جميل شاركنا الحل

[غريب يا فؤادي غريب يا فؤادي]

7

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

قي زر الضغط ضع الكود التالي

archive_files = dialog.folderbrowse("files to add", _desktopfolder);
if (archive_files ~= "cancel") and (archive_files ~= "") then
   statusdlg.show();
  found = file.find(archive_files, "*.*", true, false);
    if (found) then
    zip.add(_desktopfolder.."\\newarchive.zip",found, true, "", 5, nil, false);
    statusdlg.hide();
    file.explorefolder(_desktopfolder, sw_shownormal);
    end
end 

امافي زر فك الضغط ضع الكود

   result = dialog.filebrowse(true, "load file", _desktopfolder, "microsoft word document (*.*)|*.*|all files (*.*)|*.*|", "", "", false, true);

-- if cancel was not chosen, then let's get the file path
if (result[1] ~= "cancel") then
distination = dialog.folderbrowse("please select a folder:", _desktopfolder);

 statusdlg.show();
 zip.extract(result[1], {"*.*"}, distination, true, true, "", 3, nil);
 statusdlg.hide();
end 

بالتوفيق

الله يجازيك الخير ما قصرت
مشروعك افضل من اللي انا عملته
شكرا لك

ولي طلب ثاني منك ان امكن
اطلبه بموضوع اخر

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

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

ملفات ممكن تستفيد منها

https://top4top.io/downloadf-14884gnnw1-rar.html

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

الله يجازيك الخير ما قصرت
مشروعك افضل من اللي انا عملته
شكرا لك

ولي طلب ثاني منك ان امكن
اطلبه بموضوع اخر

الحمد لله
تفضل ان كان بالامكان لن نبخل

[غريب يا فؤادي غريب يا فؤادي]

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

ملفات ممكن تستفيد منها

https://top4top.io/downloadf-14884gnnw1-rar.html

جزاك الله خيرا
تم التحميل