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

نسخة كاملة : APP_Path easy way
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله وبركاته
تعرفون الكود  التالي ومشكلته بعد استخدام 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
هي مجرد تذكير لان ياما و ياما دخلت بتوهان ونسيان ويكون من حسن حظي اني سبق وقد دونت هنا بالمنتدى اكواد او امثلة تقصر علي مدة التيه والنسيان.
تذكير فقط لا اقصد اني اتيت بجديد.
تحياتي للجميع
سبحان الله وجدت دالة باحد مشاريع الاخوة في سؤال له وظليت ابحث هل عملها ولم اجد بالمشروع وجربتها بمشروع ووجدت انها اختصار ممتاز مجهز من قبل الاستوديو
CurDir
في vb6.0  لم انجح بالتجربة حيث انه يعرض مسار البيئة نفسها و اقصد vb6.0