[Codack]

انا عملت أمر في كليك يمين عن طريق الريجستري أنه يفتح البرنامج عايز بقا لما ادوس كليك يمين على الفولدر وافتحو عن طريق البرنامج ياخد المسار بتاعو ويحطو في تكست بوكس

[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

[Codack]

تم بنجاح
لكن ظبطت معايا بدل GetDirectoryName الي getfullpath

[Mohamad Anan]

طبعا أخي لأنك تقوم بفتح مجلد
الكود لاستخراج اسم مجلد ملف مفتوح
و للمعلومة يمكنك تمرير بارامترات بعد اسم الملف لتنفيذ اوامر متعددة
كما تلاحظ احيانا وجود عدة اوامر في بعض البرامح مثل فتح طباعة

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

(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

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