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/mountinfo

mediante il seguente codice:

Public Sub Main()

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

  s = File.Load("/proc/self/mounts")
 
  ss1 = Split(s, "\n")

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

End