انا خليتي برنامجي مرتبط بنوع معين من الملفات انا صممتها

Text1.text=Command$

السلام عليكم ورحمه الله وبركاته

شكرل للاخ احمد

علي الرد

بس انا لما كتبت الكوده ده الناتج كان "" يعني مفيش حاجه

شكرايا احمد

بس و اي حد عنده الكود ارجواء ان هو ما يبخلش علي به

وجزاكم الله كل الخير

الأخ الكريم ، هذا الأمر لا ينفذ إلا في حالة النقر علي الملف الخاص ذات إمتداد خاص ، ولكن عند فتح البرنامج نفسة لا يعمل !!!

لذلك يجب عليك إختبار المسار ، في حالة عدم إرتجاع أي قيمة يتم إلغاء عملية الفتح لملف البيانات ، ومن ثم يتم فتح ملف جديد ... أما في حالة النقر علي ملف خاص يتم إستخدامة كما تشاء ، مثال :

strPath = Command$
If(Not strPath = "")Then
	Open strPath For Input As #1
	Text1.Text = Input(Lof(1),1)
	Close #1
End If

شكراً

Text1.Text = App.Path & "\" & App.EXEName & ".exe"