عن Running Other EXE from Visual Basic

مغلق

بدأه عـــادل في 30 نوفمبر 2003 · 4 رد · 1,110 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات

مشاركة: واتساب X فيسبوك تيليجرام

#130 نوفمبر 2003 في 20:42 صاحب الموضوع

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

من المعلوم انه اذا اردنا تشغيل ملف من خلال برنامج اخر

نضف هذا الكود

Dim TaskID As Long

TaskID = Shell("calc.exe", vbNormalFocus)

لكن عند عدم وجود هذا الملف المسمى مثلاء CALC.EXE تظهر رساله خطاء ويغلق البرنامج

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

وشكرا على المساعده

#230 نوفمبر 2003 في 20:47

الجواب:

Option Explicit

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

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

Sub ShellDocument(FileName As String)
Dim Ret&
Ret = ShellExecute(hwnd, "Open", FileName, "", "", 1)
If Ret <= 32 Then
Select Case Ret
Case 2&
MsgBox "الملف غير موجود"
Case 3&
MsgBox "المسار غير موجود"
Case 5&
MsgBox "تعذر الوصول"
Case 8&
MsgBox "ذاكرة غير كافية"
Case 11&
MsgBox "هناك خلل في الملف التنفيذي"
Case 32&
MsgBox "مكتبة الربط غير موجودة"
Case 31&
MsgBox "لايوجد برنامج مقترن بهذا الامتداد"
Case Else
MsgBox "خطأ غير معرف "
End Select
End If
End Sub

وَقُل رَّبِّ زِدْنِي عِلْماً