Sub FindUserDocumentsFolder As String If DetectOS = "windows" Then Dim jo As JavaObject Dim fs As JavaObject = jo.InitializeStatic("javax.swing.filechooser.FileSystemView").RunMethod("getFileSystemView", Null) Return fs.RunMethodJO("getDefaultDirectory"...
www.b4x.com