اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

انشاء فولدر يكون اسمة برقم الملف


الردود الموصى بها

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

ارغب عند الضغط علي الزر يقوم بالاتي :-
1) انشاء فولدر جديد داخل ملف البرنامج 
2) ياخذ رقم الملف للفولدر الذي تم انشاءه 
3) اذا تم الضغط علي الزر مرة اخري بالخطا تظهر رسالة بان الملف تم انشاءة من قبل لهذا الرقم

 

program.rar

تم تعديل بواسطه محمود _ المصري
رابط هذا التعليق
شارك

السلام عليكم

تفضل اخي ما تريد  لكن سامحني التنبيخ لم يعمل قد يستطيع احد مساعدتك في ذلك لكن اذا تم الضغط على الزر اكثر من مرة لا يؤثر على المجلد اذا كان منشأ مسبقا

 

program.rar

  • Like 3
رابط هذا التعليق
شارك

وهذه فكرة اخرى لفكرة الاخ عبدالله

If Len(Dir(CurrentProject.Path & "\" & ID, vbDirectory)) = 0 Then
MkDir CurrentProject.Path & "\" & ID
MsgBox ("تم الانشاء بنجاح")
Else
MsgBox ("المجلد موجود مسبقا")
End If

بالتوفيق

  • Like 3
رابط هذا التعليق
شارك

ودى فكرتى المتواضعة
للوصول للنتيجة المطلوبة مع إضافة كود حدث قبل التحديث للفورم لو رقم الملف خالى او الاسم خالى لا يتم حفظ البيانات في الجدول حتى لا يتم احتساب بيانات غير كاملة :fff:

program- UPDATE.rar

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

واهم شيء

إضافة اللمسة الرمهانية على التعديل :wink2:

program- UPDATE2.rar

  • Like 3
رابط هذا التعليق
شارك

لا يسعني سوا ان ادعي الله عز وجل بظهر الغيب ان يسعد اوقاتكم ويزيدكم علماً 

وشكرا لكل من ساهم في هذه الاجابة

تحياتي لكم جميعاً +1

تم تعديل بواسطه محمود _ المصري
  • Like 1
رابط هذا التعليق
شارك

جزاكم الله خيرا على دعواتكم الطيبة :fff::fff:
وبلسانى وبلسان كل اساتذتى فى المنتدى اسال الله لكم مثل ما دعوتم لنا بل واكثر ان شاء
الحمد لله الذى هدانا لهذا وما كنا لنهتدى لولا ان هدانا الله عزوجل 
الحمد لله الذى تتم بنعمته الصالحات

رابط هذا التعليق
شارك

السلام عليكم 

تعاون جميل جزاكم الله خيراً  

يكمل هذا الموضوع عند عمل مفتاح يسحب الصور من الاسكنر ويضعها فى الفولدر المنشىء بحسب رقم الملف

تم تعديل بواسطه شوقى5
رابط هذا التعليق
شارك

لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي

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

 

  • Like 1
رابط هذا التعليق
شارك

4 ساعات مضت, عبد الله قدور said:

لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي

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

 

السلام عليكم

اخي العزيز عبدالله قدوره.. كل الاحترام والتقدير لك

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

رابط هذا التعليق
شارك

السلام عليكم

أخي العزيز محمد سلامة 

أولا كنيتي قدور وليست قدورة :wallbash::wallbash:

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

تحياتي لك أخي العزيز محمد سلامة

:wavetowel::wavetowel:

  • Like 1
رابط هذا التعليق
شارك

في ٦‏/١٢‏/٢٠١٥ ١:١١:٥٧, عبد الله قدور said:

لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي

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

 

استاذ عبدالله

عفوا لم الاحظ اللقب فالتمس لي عذرا

ثانيا / هل تقصد ان لديك مثلا المسار التالي

D:\desktop\new folder

وانت تريد انشاء بداخله عدة مجلدات بناء علي ايه يعني المجلدات دي كل مجلد منها هيكون اسمه ايه.. هل سيكون كل مجلد  مثلا لكل سجل ام ماذا

برجاء التوضيح اكثر

رابط هذا التعليق
شارك

عزيزي محمد سلامة

عندي المسار التالي 

D:\accurate\datas\data1\buckup

وعندي زر انشاء فقط 

الان المجلدات datas , data1 , buckup  غير منشأة 

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

 

رابط هذا التعليق
شارك

في ٦‏/١٢‏/٢٠١٥ ٢:١١:٥٧, عبد الله قدور said:

لكن هناك مشكلة صغيرة ولم استطع حلها وطرحتها في المنتديات ولم اجد حل لها وهي

ممكن رابط واحد فقط من هذه المنتديات ؟؟

وهل منتدانا احدها ؟ ام لا ولماذا ؟

رابط هذا التعليق
شارك

18 ساعات مضت, رمهان said:

ممكن رابط واحد فقط من هذه المنتديات ؟؟

وهل منتدانا احدها ؟ ام لا ولماذا ؟

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

وقتها حللت مشكلتي بأن استخدمت زر استعراض ممكن من خلاله انشاء المجلدات المطلوبة

رابط هذا التعليق
شارك

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

هذا الامر يقوم بانشاء المجلد والمجلدات الفرعية مرة واحدة !

Shell ("cmd /c mkdir ""c:\a\b\c""")

طبعا يمكنك التاكد من وجوده بالامر  dir  كما يمكن الاستدلال ب currentproject.path   لمعرفة للتصريح بموقع المجلدات الفرعية

وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split  وبمدلول العلامة \  ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا !

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

بالتوفيق 

  • Like 2
رابط هذا التعليق
شارك

السلام عليكم 

ما هذا الابداع أخي رمهان أدهشتني و الله 

وينك أنت من ثلاث أربع سنوات مضت تحياتي لك ولابداعاتك 

لكن لم أفهم عملية التأكد باستخدام dir

 

تم تعديل بواسطه عبد الله قدور
  • Like 1
رابط هذا التعليق
شارك

16 دقائق مضت, محمد سلامة said:

استاذ رمهان يقصد ب dir التاكد اولا اذا كان الفولدر منشا من قبل ام لا وذلك قبل الانشاء

ممتاز كيف يمكن استخدامه حاولت ولم أفلح

 

  • Like 1
رابط هذا التعليق
شارك

8 دقائق مضت, عبد الله قدور said:

ممتاز كيف يمكن استخدامه حاولت ولم أفلح

سوف احاول ارفق ملف ولكن اعذرني فانا مشغول جدااا في اقفال برنامج.. اذا تسنا وقت لي سوف ارفق ملف ان شاء الله

المثال عبارة عن انشاء فولدر في الرابط المحدد وبداخله ثلاث ملفات (وورد-pdf-اكسيل) وسوف اعدل عليه باستخدام الامر المدرج بعاليه من استاذ رمهان

وعلي فكرة

المثال الموجود لدي هو ايضا من عمل المبدع استاذ رمهان قبل فترة فجزاه الله خيرا

تم تعديل بواسطه محمد سلامة
رابط هذا التعليق
شارك

السلام عليكم شباب :rol:

 

في الرابط التالي http://www.officena.net/ib/topic/61847-تعديل-على-كود-حفظ-مكان-الصورة/?do=findComment&comment=399928 استعملت الكود التالي:

 

    Dim Image_Path As String
    
  
     '1
    Image_Path = Application.currentProject.Path
    
   '2
    Image_Path = Image_Path & "\photo\"
    'if the photo Dir dose not exist, creat it
    If Dir(Image_Path, vbDirectory) = "" Then
        MkDir Image_Path
    End If
    
   '3
    Image_Path = Image_Path & "\" & [ID] & "\"
    'if the [id] Dir dose not exist, creat it
    If Dir(Image_Path, vbDirectory) = "" Then
        MkDir Image_Path
    End If
    

 

وهنا قبل ان أنشأ المجلد الجديد ، يتأكد الكود بوجوده ، فان لم يكن موجودأ ، فانه يستحدثه ، وإن كان موجودا لا يفعل شئ (طبعا لم اكن اريد المستخدم ان يرى اي رسالة هنا) ،

وتلاحظ ان عمل المجلدات هو بالتسلسل ، ومن خلال نفس مجلد البرنامج ، هكذا:

-1- مجلد البرنامج (الموجود ، لذلك لم اقم بعمل شئ له) ،

  -2- مجلد الصور photo (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد البرنامج ، ومجلد الصور photo هذا  سيُستحدث مرة واحدة فقط ،

    -3- مجلد ID (واذا لم يكن موجودا ، فسيستحدثه البرنامج) ، والذي هو بداخل مجلد الصور photo ، وهناك عدة مجلدات بحسب قيمة ID ، داخل مجلد الصور photo.

 

 

جعفر

 

تم تعديل بواسطه jjafferr
  • Like 2
رابط هذا التعليق
شارك

 

في ٩‏/١٢‏/٢٠١٥ at 00:58, رمهان said:

وهناك فكرة استخدام الامر mkdir وكما في مشاركتي السابقة ولكن بتقسيم المسار المطلوب الى مصفوفة بواسطة الامر split  وبمدلول العلامة \  ثم الدوران على على المصفوفة وبانشاء كل عنصر لوحده والذي يمثل مجلد وهكذا !

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

بالتوفيق 

هذا الكود اخي عبدالله للفكرة اعلاه :

xpath = "a\b\c\d"
ypath = CurrentProject.Path & "\"
For Each d In Split(xpath, "\")
ypath = ypath & d & "\"
MkDir ypath
Next

حيث xpath مجلداتك المراد انشاؤها !

بالتوفيق

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information