mServer.BaseDir = File.DirInternal
Dim jo As JavaObject
jo.InitializeNewInstance("java.io.File", Array(File.Combine(File.DirInternal, "")))
Dim CanonicalPath As String = jo.RunMethod("getCanonicalPath", Null)
mServer.BaseDir = CanonicalPath
Log ("DirInternal = " & File.DirInternal)
Log ("CanonicalPath = " & CanonicalPath)