Sub btn1_Click
Dim i As Intent
Dim q As String
File.Copy(File.DirAssets,"football.iso",File.DirRootExternal & "/Psp Games" ,"football.iso")
q=File.Combine(File.DirRootExternal & "/Psp Games" ,"football.iso")
i.Initialize(i.ACTION_VIEW,q)
i.SetType("application/iso")
'i.WrapAsIntentChooser("شبیه ساز را انتخاب کنید")
StartActivity(i)
End Sub
واسه باز کردن فایل iso ای هست که گفتم اما وقتی اجراش میکنم رو این دکمه کلیک میکنم با ارور زیر مواجه میشم : لینک اسکرین شات
سوال
mahmoodshahsavari 2
سلام دوستان به این چند خط کد توجه کنید :
Sub btn1_Click Dim i As Intent Dim q As String File.Copy(File.DirAssets,"football.iso",File.DirRootExternal & "/Psp Games" ,"football.iso") q=File.Combine(File.DirRootExternal & "/Psp Games" ,"football.iso") i.Initialize(i.ACTION_VIEW,q) i.SetType("application/iso") 'i.WrapAsIntentChooser("شبیه ساز را انتخاب کنید") StartActivity(i) End Sub
واسه باز کردن فایل iso ای هست که گفتم اما وقتی اجراش میکنم رو این دکمه کلیک میکنم با ارور زیر مواجه میشم : لینک اسکرین شات
مشکل از چیه ؟
لینک ارسال
به اشتراک گذاری در سایت های دیگر
6 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.