فتح ملف

B)

استخدم الدالة shell32.dll

من project ثم References ثم

Microsoft Shell controsl

ثم هذا الكود لفتح اي ملف فقط حدد مساره

Dim SH As New Shell 
SH.Open "C:\swf.exe"

مليون عافية

وجاري التجربة حالا ،،،

اذا كنت لا ترغب في اللجوء الى الــ References استخدم كود الــ API التالي :

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 Form_Load()
	ShellExecute Me.hwnd, vbNullString, "ضع هنا اسم الملف ومساره", vbNullString, "C:\", 1
End Sub

وفي حل أخر لأستدعاء الملفات و هو

shell و بعدين عنوان الملف

جزاكم الله خير على الأكواد والمعلومة