+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : فتح الملفات من مجلد البرنامج (/showthread.php?tid=33976)
فتح الملفات من مجلد البرنامج - aftfm - 25-03-20
السلام عليكم ورحمة الله وبركاته
لدي ملفات من نوع PDF
في عدة مجلدات داخل مجلد البرنامج
واريد استدعاء الملف باسمة من مجلد البرنامج ولكن بدون تحديد من أي مجلد من المجلدات التي بداخل البرنامج
انا كاتب الكود هكذا
كود :
AxAcroPDF1.src - (Application.StartupPath & "\" & me.TextBox1.Text & ".pdf")ولكن هذا سيعطيني فقط الملفات التي داخل مجلد debug
والمطلوب الملفات التي بداخل المجلدات الموجودة في مجلد Debug
أياً كان اسم هذه المجلدات
مع العلم ان اسماء الملفات عبارة عن ارقام صحيحة
12
13
4232
23232
وقابلة للتكرار في عدة مجلدات من المجلدات التي بداخل Debug
RE: فتح الملفات من مجلد البرنامج - سعود - 25-03-20
PHP كود :
Application.StartupPath & "\"
هذا الجزء من الكود لا يرجع الا أحدث مسار استخدمته.
استخدم
curdir & "\"
ثم لابد من تمرير المسارات الداخلية بالكود لكي تستطيع الوصول لها.
RE: فتح الملفات من مجلد البرنامج - سعود - 25-03-20
المرفق كبير شوي بسبب عدد الصور 10 مفرقة لاكثر من مجلد
RE: فتح الملفات من مجلد البرنامج - ابراهيم ايبو - 25-03-20
السلام عليكم ورحمة الله وبركاته
اعتقد ان الفكرة يجب ان تقوم اولا على البحث عن الملف في المجلد الاصلي ومجلداته الفرعية
ثم بعد ذلك ان وجد الملف يقوم بجلبه
RE: فتح الملفات من مجلد البرنامج - 351028 - 25-03-20
(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)