اجرای یک فایل

[mehranA2]

با سلام و خسته نباشید.من به دنبال یک تابع یا روش برای اجرای فایل هایی مانند ورد یا آهنگ یا عکس و غیره از طریق ویژوال بیسیک می باشم اگر امکان داشته باشد من را راهنمایی کنید.ممنون:لبخندساده:

[saeedvir]

سلام


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()
Call ShellExecute(Me.hWnd, vbNullString, "D:\Test.exe", "", "", SW_SHOWNORMAL)
End Sub

[mostafa_bahar]

دوست من بستگي دارد اگه فايل exe بود از روش دوستمون برو وگرنه بايد ocx همون فايل برا باز كردن و داشته باشي