B4A打开文件夹

源代码

Try
	Dim i As Intent
	i.Initialize(i.ACTION_VIEW, "file://" &  File.DirRootExternal&"/保存目录/" )
	i.SetType( "resource/folder" )
	StartActivity(i)
Catch
	Msgbox("Missing default file explorer", "Error")
End Try