تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
فتح الملفات من مجلد البرنامج
#1
السلام عليكم ورحمة الله وبركاته

لدي ملفات من نوع PDF

في عدة مجلدات داخل مجلد البرنامج

واريد استدعاء الملف باسمة من مجلد البرنامج ولكن بدون تحديد من أي مجلد من المجلدات التي بداخل البرنامج

انا كاتب الكود هكذا


كود :
AxAcroPDF1.src - (Application.StartupPath & "\" & me.TextBox1.Text & ".pdf")

ولكن هذا سيعطيني فقط الملفات التي داخل مجلد debug 

والمطلوب الملفات التي بداخل المجلدات الموجودة في مجلد Debug

أياً كان اسم هذه المجلدات

مع العلم ان اسماء الملفات عبارة عن ارقام صحيحة

12
13
4232
23232
وقابلة للتكرار في عدة مجلدات من المجلدات التي بداخل Debug
الرد }}}
#2
PHP كود :
Application.StartupPath "\" 
هذا الجزء من الكود لا يرجع الا أحدث مسار استخدمته.
استخدم
 curdir & "\"
ثم لابد من تمرير المسارات الداخلية بالكود لكي تستطيع الوصول لها.
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو , alshandodi
#3
المرفق كبير شوي بسبب عدد الصور 10 مفرقة لاكثر من مجلد 


الملفات المرفقة
.zip   Files_Opener.zip (الحجم : 1.61 م ب / التحميلات : 26)
الرد }}}
#4
السلام عليكم ورحمة الله وبركاته
اعتقد ان الفكرة يجب ان تقوم اولا على البحث عن الملف في المجلد الاصلي ومجلداته الفرعية
ثم بعد ذلك ان وجد الملف يقوم بجلبه 
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات







الرد }}}
تم الشكر بواسطة: asemshahen5 , aftfm , aftfm , سعود
#5
(25-03-20, 02:43 PM)aftfm كتب : السلام عليكم ورحمة الله وبركاته

لدي ملفات من نوع PDF

في عدة مجلدات داخل مجلد البرنامج

واريد استدعاء الملف باسمة من مجلد البرنامج ولكن بدون تحديد من أي مجلد من المجلدات التي بداخل البرنامج

انا كاتب الكود هكذا


كود :
AxAcroPDF1.src - (Application.StartupPath & "\" & me.TextBox1.Text & ".pdf")

ولكن هذا سيعطيني فقط الملفات التي داخل مجلد debug 

والمطلوب الملفات التي بداخل المجلدات الموجودة في مجلد Debug

أياً كان اسم هذه المجلدات

مع العلم ان اسماء الملفات عبارة عن ارقام صحيحة

12
13
4232
23232
وقابلة للتكرار في عدة مجلدات من المجلدات التي بداخل Debug

PHP كود :
Dim fn = IO.Directory.GetFiles(Application.StartupPath"*.pdf"IO.SearchOption.AllDirectories).FirstOrDefault
If fn <> "" Then Process.Start(fn) 
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  متغيرات اسماء الملفات atefkhalf2004 1 337 15-11-23, 02:40 PM
آخر رد: atefkhalf2004
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] عمل البرنامج على أى resoluation dr.programming 0 244 02-11-23, 12:08 AM
آخر رد: dr.programming
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم