Conoscere con le sole risorse di Gambas i dispositivi esterni montati

Per conoscere con le sole risorse di Gambas quali dispositivi sono attualmente montati dal sistemi, si verificherà il file di testo:

/proc/self/mounts

mediante il seguente codice:

Public Sub Main()

 Dim s As String
 Dim ss1, ss2 As New String[]
 Dim b As Byte

 s = File.Load("/proc/self/mounts")

 ss1 = Split(s, "\n")

 For b = 0 To ss1.Max
   If InStr(ss1[b], "/dev/sd") > 0 Then
     ss2 = Split(ss1[b], " ")
     Print ss2[0], ss2[1]
   Endif
 Next

End

(testato su Ubuntu e su ArchiLinux)