منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : فتح الملفات من مجلد البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته

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

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

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

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


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

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

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

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

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

12
13
4232
23232
وقابلة للتكرار في عدة مجلدات من المجلدات التي بداخل Debug
PHP كود :
Application.StartupPath "\" 
هذا الجزء من الكود لا يرجع الا أحدث مسار استخدمته.
استخدم
 curdir & "\"
ثم لابد من تمرير المسارات الداخلية بالكود لكي تستطيع الوصول لها.
المرفق كبير شوي بسبب عدد الصور 10 مفرقة لاكثر من مجلد 
السلام عليكم ورحمة الله وبركاته
اعتقد ان الفكرة يجب ان تقوم اولا على البحث عن الملف في المجلد الاصلي ومجلداته الفرعية
ثم بعد ذلك ان وجد الملف يقوم بجلبه 
(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