[سعود]

السلام عليكم ورحمة الله وبركاته
تعرفون الكود  التالي ومشكلته بعد استخدام 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