02-19-2014، 12:15 AM
نقل قول: و برای ارسال فایل از این کد :کد پیاچپی:Sub Activity_Create(FirstTime As Boolean)
‘Activity.LoadLayout(“Layout1”)
Dim i As Intent
Dim sFile As String
Dim sFullPath As String
Dim URI As String
sFile=”MyFile.TXT”
sFullPath=File.Combine( File.DirRootExternal ,sFile)
URI = “file://” & sFullPath
i.Initialize(i.ACTION_SEND, “”)
i.SetType(“text/plain”)
i.PutExtra(“android.intent.extra.STREAM”, URI)
i.WrapAsIntentChooser(“Share via”)
StartActivity(i)
End Sub
درورد
ممنون از کدی که قرار دادید.
اما این کد رو من قبلا هم تست کرده بودم اما صفحه Share Via رو باز میکنه ولی وقتی بلوتوث رو انتخاب میکنم هیچ عملی انجام نمیده
باید دسترسی خاصی به برنامه بدم؟
اگه سمپل خاصی وجود داره ممنون میشم قرار بدید.