هام جداً : اريد تشغيل ملف Exe من فورم بالفيجوال بيسك 6

السلام عليكم

الامر يحتاج الى دالة صغيرة وهي SHELL

إذن استعملها هكذا

Sub OpenExe(FileName As String)
If Dir$(FileName) <> vbNullString Then
Shell FileName, vbNormalFocus

Else
MsgBox "The File Does Not Exist", vbInformation, "No File"
End If
End Sub

بحيث FileName هو اسم البرنامج الذي تريد تشغيله

والشرط هو أن يكون في نفس مجلد البرنامج

آمل أن يجيب هذا عن طلبك وإلا حاول الشرح بطريقة أخرى

راجع الدرس حول فتح الملفات

/index.ph...st&id=53699

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

اشكركم جزيل الشكر على المساعده ولكني جربت الطرقه ومشتغلتش معايا ... معذرة فاني مبتدأ وممكن مكنش قدرت اوصل للطريقة بالطريقة السليمه

اذا اكمن ان تكون الطريقة بمثال بفتح اي ملف تنفيذي في مجلد المشروع زي الحاسبة مثلاً انزله على جهازي واعرف كيف اشتغل يكون افضل بالنسبه لي وجزاكم الله كل خير

لانه بصراحه مطلوب مني اضغ زر امر يفتح ملف exe في ملف المشروع والموضوع دا واقف معايا شويه

استعمل

shell App.path & "\" & "File Name.exe"

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

اخي الكريم

انت تريد فتح اي ملف exe في مجلد البرنامج ؟؟

shell app.path & "\*.exe"

ام تريد فتح برنامجك ؟؟

shell app.path & "\" & app.exename & ".exe"

ام تريد فتح ملف exe معين ؟؟

shell app.path & "\name.exe"

ممكن توضح اكثر ؟

أرفقت لك مثال أخي الكريم

Ex.rar

شكرا جزيلا لكم ولو ينفع اخي الكريم مثال على كيقية فتح ملف txt في نفس المجلد المشروع لاني بدلت اسم الملف calc.exe باسم وامتداد ملف نصي بس لم يعمل ..

HSMH كتب:

شكرا جزيلا لكم ولو ينفع اخي الكريم مثال على كيقية فتح ملف txt في نفس المجلد المشروع لاني بدلت اسم الملف calc.exe باسم وامتداد ملف نصي بس لم يعمل ..

راجع الدرس في المشاركة رقم 3

بالتوفيق

صحيح اخي انا شوفت المثال بس عايز مثال على فتح ملف نصي txt في نفس مجلد المشروع بدالا من الملف التنفيذي calc.exe

HSMH كتب:

صحيح اخي انا شوفت المثال بس عايز مثال على فتح ملف نصي txt في نفس مجلد المشروع بدالا من الملف التنفيذي calc.exe

كل ما تريده أخي HSMH موضح بالتفصيل في درس أخي المزمجر ( المشاركة الثالثة ) ..

'قسم التصريحات
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'قسم الاكواد
Private Sub Command1_Click()
	ShellExecute Me.hwnd, "open", App.Path & "\1.txt", "", "", 1
End Sub

على افتراض وجود الملف "1.txt" في نفس مجلد البرنامج ...

أشكرك جزيل الشكر يا أخي الكريم وهذا ما كنت ابحث عنه

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