با سلام و سپاس خدمت کاربران عزیز
ایمپورت فایل 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