سلام دوستان من تو ويژال بيسيك 6 چه طوري ميتونم يه فايل رو اجرا كنم؟
مثلا تو اين مسير يه فايل با اين نام دارم چه طوري ميتونم اونو اجرا كنم
d:\r.exe
پیشاپیش ممنون
Printable View
سلام دوستان من تو ويژال بيسيك 6 چه طوري ميتونم يه فايل رو اجرا كنم؟
مثلا تو اين مسير يه فايل با اين نام دارم چه طوري ميتونم اونو اجرا كنم
d:\r.exe
پیشاپیش ممنون
سلام دوست عزيز
من قبلا از اين روش استفاده ميكردم
ولي اين روزها هر چي ميزنم جواب نميدهکد:shell ("d:\r.exe")
بگزاريد اساتيد جواب بدن
سلام .
دوست عزیز اگه همون shell رو استفاده کنید نباید مشکل داشته باشه ! اگه پاسخ نداد فرمان Call رو قبل از Shell قرار بدید . یعنی به این صورت :
کد:Call Shell("d:\r.exe")
در هر صورت با کد زیر علاوه بر یک فایل EXE میتونید هر نوع فایلی رو اجرا کنید .
کد:Private Declare Function ShellExecuteA Lib "shell32.dll" (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 Const SW_HIDE = 0
Private Const SW_NORMAL = 1
Private Const SW_SHOWDEFAULT = 10
Private Const SW_MINIMIZE = 3
Private Const SW_MAXIMIZE = 6
Private Const SW_SHOW = 5
Private Sub form_load()
''''''' '''''
ShellExecuteA hwnd, "open", "r.exe", "", "d:\", SW_NORMAL
End Sub
موفق باشید .
سلام دوستان عزیر خسته نباشید
پاسخ سوال شما
شما برای باز کردن فایل 3 راه دارید :
1- همان تابع Shell هست که استفاده صحیحش رو برای شما می نویسم
کد:Shell "D:\open.exe",VbNormalFocus
2- راه دوم استفاده از تابع API اوپن فایل یا OPENFILE هست
3- و راه سوم هم استفاده از تابع منسوخ شده WinEXEC هست
امیدوارم بدرد خورده باشه
سلام
و يك راه ديگر:
پست شماره 4 (4#)کد:http://forum.p30world.com/showthread.php?p=3047736#post3047736
موفق باشيد :11: