Public Sub isDrive(Path As String) As Boolean
Dim FileSystemView As JavaObject
FileSystemView.InitializeStatic("javax.swing.filechooser.FileSystemView")
FileSystemView = FileSystemView.RunMethod("getFileSystemView", Null)
Dim FileJO As JavaObject
FileJO = FileSystemView.RunMethod("createFileObject", Array As Object(Path))
Return FileSystemView.RunMethod("isDrive", Array As Object(FileJO))
End Sub