[عاصم النجار]

(09-07-20, 02:37 AM)Mohamad Anan كتب : مرحبا أخي الكريم

كود :

   Private Sub Form1_Load()
       TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
   End Sub

---

لتفادي الخطأ في حال تم فتح البرنامج مباشرة

كود :

   Private Sub Form1_Load()
       If My.Application.CommandLineArgs.Count > 0 Then
           TextBox1.Text = System.IO.Path.GetDirectoryName(My.Application.CommandLineArgs(0).ToString())
       End If
   End Sub

حل مثالي ... مبدع