B4J Question How to open Applications folder on Mac?

[ThRuST]

I've tested to open Downloads folder on Mac which works by using this

Dim folder As String = GetSystemProperty("user.home", "") & "/Downloads"
    fx.Msgbox(MainForm, folder, "")
    
    Dim shl As Shell
    shl.InitializeDoNotHandleQuotes("shl", "Open", Array As String ("" & folder))
    shl.WorkingDirectory = "/"
    shl.Run(400)

However when I try to open Applications folder it does not work. Any clues?

Try
    
        Dim folder As String = GetSystemProperty("user.home", "") & "/Applications"
        fx.Msgbox(MainForm, folder, "")
    
        Dim shl As Shell
        shl.InitializeDoNotHandleQuotes("shl", "Open", Array As String (folder))
        shl.WorkingDirectory = "/"
        shl.Run(400)
        
    Catch
        fx.Msgbox(MainForm, LastException.Message, "")
    End Try

 

[ThRuST]

ok I solved this myself here's the solution

Try
    
        Dim folder As String = "/Applications"
        fx.Msgbox(MainForm, folder, "")
    
        Dim shl As Shell
        shl.InitializeDoNotHandleQuotes("shl", "Open", Array As String (folder))
        shl.WorkingDirectory = "/"
        shl.Run(400)
        
    Catch
        fx.Msgbox(MainForm, LastException.Message, "")
    End Try