انا عملت أمر في كليك يمين عن طريق الريجستري أنه يفتح البرنامج عايز بقا لما ادوس كليك يمين على الفولدر وافتحو عن طريق البرنامج ياخد المسار بتاعو ويحطو في تكست بوكس
مرحبا أخي الكريم
كود :
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
تم بنجاح
لكن ظبطت معايا بدل GetDirectoryName الي getfullpath
طبعا أخي لأنك تقوم بفتح مجلد
الكود لاستخراج اسم مجلد ملف مفتوح
و للمعلومة يمكنك تمرير بارامترات بعد اسم الملف لتنفيذ اوامر متعددة
كما تلاحظ احيانا وجود عدة اوامر في بعض البرامح مثل فتح طباعة
(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
حل مثالي ... مبدع