تشغيل ملف MDB

shell

اهذه الكلمة تفتح اي برنامج اريده ؟

استخدم ShellExecute

في الفورم

Private Sub Command1_Click()
	'من المسار
	ShellExecute Me.hWnd, "open", App.Path & "\1.MDB", "", "", 1
	' مسار معين
   ' ShellExecute Me.hWnd, "open", "C:\1.MDB", "", "", 1
End Sub

في الموديول

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

NOUR_EXE.rar

اقتباس

shell

اهذه الكلمة تفتح اي برنامج اريده ؟

اقتباس

لكن يبدو أنه لا بد أن يكون الملف تنفيذي حتى يتم تشغيله

نعم

هذه التعليمة خاصة بفنتح البرامج التنفيذية exe

لكنك تستطيع استخدام ShellExecute لفتح أي ملف بغض النظر عن لاحقته

فقط غير امتداد الملف في الكود السابق

شكرا جزيلا