السلام عليكم ورحمة الله وبركاته
اخواني الكرام
عندي مجلد اسمه M
يضم عدة ملفات ولكن والمهم ملفين فقط وقد ارفقتهم هنا
وعمل الملف ARJ.EXE فك الضغط الملف A_1423.ARJ
قمت بعمل نموذج عادي وكتبت الكود فيه والكن
المشكلة الما اضغط على زر التنفيذ تطلع الشاشة وتختفي بسرعة
والكود هو
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ProcID As Integer
ProcID = Shell("C:\m\ARJ.EXE e a_1423.arj", AppWinStyle.NormalFocus)
End Sub
ولكن الما اكتب الأمر في ابداء ------ RUN يفتح عادي واستطيع فك ضغط الملف واشوف التنفيذ
C:\m\ARJ.EXE e a_1423.arj RUN