VB开发安卓程序_例程4目录(文件)选择对话框的应用

运行截图 

本例程所需库

 Main窗体核心代码如下

Sub Activity_Create(FirstTime As Boolean)
	

	Dim dlgFileExp As ClsExplorer
	

			
	Dim newDiagDir As String

	'初始对话框 
	dlgFileExp.Initialize(Activity, File.DirRootExternal, "", False, True)
	
	dlgFileExp.Explorer2(False)
	
	If Not(dlgFileExp.Selection.Canceled Or dlgFileExp.Selection.ChosenPath = "") Then

		newDiagDir = dlgFileExp.Selection.ChosenPath
		Log("选择的目录 " & newDiagDir)
	Else
					
		'用户点击取消键
				
	End If

	
End Sub

类ClsExplorer请到官网帖子下载 B4A Library [Class] File Explorer with visualization