منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] APP_Path easy way - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم مكتبة اكواد VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=185)
+--- الموضوع : [كود] APP_Path easy way (/showthread.php?tid=30348)

APP_Path easy way - سعود - 17-07-19

السلام عليكم ورحمة الله وبركاته
تعرفون الكود  التالي ومشكلته بعد استخدام OpenFileDialog  او  FolderBrowserDialog يتغير او تتغير وجهته وهو:
PHP كود :
Application.StartupPath 
لكن  التالي يحل المشكلة مهما تغيرت وجهة StartupPath
كود :
Public Function App_path() As String
       Dim exe_path As String = Application.ExecutablePath
       Dim app_name As String = IO.Path.GetFileName(exe_path)
       Return exe_path.Replace(app_name, "")
   End Function
هي مجرد تذكير لان ياما و ياما دخلت بتوهان ونسيان ويكون من حسن حظي اني سبق وقد دونت هنا بالمنتدى اكواد او امثلة تقصر علي مدة التيه والنسيان.
تذكير فقط لا اقصد اني اتيت بجديد.
تحياتي للجميع

RE: APP_Path easy way - سعود - 15-08-19

سبحان الله وجدت دالة باحد مشاريع الاخوة في سؤال له وظليت ابحث هل عملها ولم اجد بالمشروع وجربتها بمشروع ووجدت انها اختصار ممتاز مجهز من قبل الاستوديو
CurDir
في vb6.0  لم انجح بالتجربة حيث انه يعرض مسار البيئة نفسها و اقصد vb6.0