با سلام و سپاس خدمت کاربران عزیز 

ایمپورت فایل VCF (مخاطبین) به مخاطبین گوشی با اینتنت

 یک دیالوگ برای انتخاب فایل باز میشه و بعد از انتخاب فایل مورد نظر مخاطبین Import خواهند شد.

 

 بجای قراردادن دیالوگ میشه مسیر رو خودمون هم بدیم…

 

Dim f As FileDialog
 f.FastScroll=True
 f.FilePath=File.DirRootExternal
 f.ScrollingBackgroundColor=Colors.Transparent
  f.TextColor=0xFF008753
  f.FileFilter=".vcf"
  f.Show("فایل را انتخاب کنید","انتخاب","لغو","",Null)
  If f.Response=-1 Then
    Dim i As Intent
    i.Initialize(i.ACTION_VIEW,"file://"&File.Combine(f.FilePath,f.ChosenName))
    i.SetType("text/vcard")
    StartActivity(i)
  End If