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

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

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

تقليص
هذا الموضوع مغلق.
X
X
 
  • تصفية - فلترة
  • الوقت
  • عرض
إلغاء تحديد الكل
مشاركات جديدة

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

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

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



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


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

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

    لكن يظهر خلل

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

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

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

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

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

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

    تعليق


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

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

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

      تعليق


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

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

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

        تعليق


        • #5
          بارك الله فيك

          تعليق


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

            تعليق


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

              تعليق


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

                تعليق


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

                  1- إظهار مربع حفظ بإسم
                  كود PHP:
                  file=Dialog.FileBrowse(false"Save As""c:\\""All Files (*.*)|*.*|"""""falsetrue); 
                  2- التعامل مع نتيجة المربع و خيارات المستخدم
                  كود PHP:
                  File.Copy("c:\\example.exe"file[1], falsefalsefalsefalsenil); 

                  تعليق


                  • #10
                    مشكووووووووووووووور

                    تعليق

                    مواضيع تهمك

                    تقليص

                    المنتدى: القسم العام نشرت بواسطة: Reem2Rabeh الوقت: 04-23-2025 الساعة 04:27 PM
                    المنتدى: ضبط وتوكيد الجودة نشرت بواسطة: HeaD Master الوقت: 04-15-2025 الساعة 09:30 AM
                    المنتدى: التصنيع والانتاج نشرت بواسطة: HeaD Master الوقت: 04-11-2025 الساعة 01:08 PM
                    المنتدى: القسم العام نشرت بواسطة: نوال الخطيب الوقت: 03-19-2025 الساعة 03:07 AM
                    المنتدى: الكمبيوتر والإنترنت نشرت بواسطة: عوض السوداني الوقت: 03-18-2025 الساعة 07:22 AM
                    يعمل...
                    X