إعـــــــلان

تقليص
لا يوجد إعلان حتى الآن.

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

تقليص
هذا الموضوع مغلق.
X
X
تقليص
 
  • الصفحة لـ 2
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة
السابق 1 2 template التالي
  • #1

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

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

    هذا الكود لنسخ ملف من اسطوانة الى مكان يحدده المستعمل
    كود PHP:
    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

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


    لكن يعطني خطا عند الغاء النسخ
    الكلمات الدلالية: الجمل, الكود, اين, هذا
  • #2
    الكود بعد التعديل :

    كود PHP:
    --
    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 





    تعليق

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

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

      حياكم الله

      تعليق

      • #4
        بارك الله فيك جزاك الله خيرا


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



        تعليق

        • #5
          المشاركة الأصلية بواسطة محمد بن أحمد أبو حذيفة مشاهدة المشاركة
          الكود يعمل لكن يظهر صفحتيان
          انا اريد ان تظهر الصفحة الثانية فقط ويتم الحفظ

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

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

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


          كود PHP:
          --
          --&          #197;Óã æãÓÇÑ ÇáãáÝ ÇáãÑÇÏ äÓÎÉ ÈÇáÖÈØ
          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 

          تعليق

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

            تعليق

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

              تعليق

              • #8
                المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
                إذن ما تم تقديمه كافيا أم تريد شيئ آخر أو تعديل آخر ؟.

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

                تعليق

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

                  تعليق

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

                    تعليق

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

                      تعليق

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


                        كود PHP:
                        --
                        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 
                        برجاء بعد ذلك عند وضع الأسئلة وضع ملف مفتوح أو الكود بالكامل حتى تحصل على إجابات مختصرة وكاملة ومناسبة للعمل

                        تعليق

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

                          رحمك الله اخي

                          تعليق

                          • #14
                            المشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركة
                            برجاء بعد ذلك عند وضع الأسئلة وضع ملف مفتوح أو الكود بالكامل حتى تحصل على إجابات مختصرة وكاملة ومناسبة للعمل
                            بارك الله فيك

                            تعليق

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

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



                              هذا الكود يعمل ويحفظ لكن عند الغاء الخفظ تظهر رسالة خطا
                              [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
                              [/html]

                              تعليق

                              السابق 1 2 template التالي

                              مواضيع تهمك

                              تقليص
                              الرياضة وأثرها الشامل على صحة الإنسان
                              المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                              تكاليف الجودة Cost of Quality
                              المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                              تصميم أنظمة التصنيع
                              المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                              شركة رواد الحرمين
                              المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                              Adobe Acrobat Pro DC 2025.001.20428 لتحرير وتعديل وتحويل وإنشاء وقراءة وطباعه pdf
                              المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                              يعمل...
                              X