#Region Project Attributes
#MainFormWidth: 600
#MainFormHeight: 600
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private xui As XUI
Private Button1 As B4XView
Private DrivesList As List
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
' List Available Drives
Dim fsv As JavaObject
fsv.InitializeStatic("javax.swing.filechooser.FileSystemView")
For Each drive As Object In ListRoots
Log(drive)
Log(fsv.RunMethodJO("getFileSystemView",Null).RunMethod("getSystemDisplayName",Array(drive)))
Next
End Sub
Sub ListRoots As List
Dim jo As JavaObject
Dim o() As Object = jo.InitializeStatic("java.io.File").RunMethod("listRoots", Null)
Return o
End Sub
Sub Button1_Click
xui.MsgboxAsync("Hello World!", "B4X")
End Sub