مگر این کد برای باز کردن فایل نیست؟؟؟

[REZADG]

با سلام دوستان من میخوام در برنامه ام یه برنامه ی دیگر رو باز کنم اما نمیشه نه خطا میده نه باز میکنه اینم کد
dim r as nes shell
r.open "mspaint"
در ضمن یک شیع shell به فرم اضافه کردم

[mpmsoft]

Shell "mspaint", vbNormalFocus

[مهران رسا]

Examples:



Shell "C:\MyFile.bat"




Shell App.Path & "\OtherFiles\File1.exe",VbNormalFocus



در صورتی که فایل مورد نظر در پوشه System32 ویندوز و یا در کنار خود برنامه قرار داشته باشه ، همونطور که دوستمون مثال زدند دیگه نیازی به نوشتن مسیر فایل نیست .

[Mohya_z332]

بله درسته اما من یه کم کاملترش میکنم تا شاید اشکال معلوم شه !
اگه شما بخواهید یک فایل exe رو باز کنی باید از دستور shell استفاده کنی .
مثال : Shell "E:\abc.exe"
اما اگه بخوای یه فایل با هر پسوند دیگه اجرا کنی باید اول یه متغییر از نوع new shell ایجاد کنی بعد دستورش رو بنویسی .
مثال :
اول از منوی project گزینه Reference... رو انتخاب کن سپس از لیست گزینه microsoft shell control and automation رو به پروژ اضافه کن.
بعد
Private Sub Command1_Click()
Dim op As New Shell
op.Open "E:\Gens32_Surreal_v1_76\GENS.txt"
End Sub

با تشکر ...