Sub ToLineApp_ZipFile( FullName As String)
Dim i As Intent, u As Uri, pm As PackageManager, theApp As String, ext As String
u.Parse("file://" & FullName )
i.Initialize(i.ACTION_SEND, "")
i.SetType("application/zip")
i.PutExtra("android.intent.extra.STREAM",u)
i.SetPackage("jp.naver.line.android")
StartActivity(i)
End Sub