Differenze tra le versioni di "Conoscere con le sole risorse di Gambas i dispositivi esterni montati"

Da Gambas-it.org - Wikipedia.
Riga 20: Riga 20:
 
   
 
   
 
  '''End'''
 
  '''End'''
 +
 +
(testato su Ubuntu)

Versione delle 11:03, 17 ago 2014

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

(testato su Ubuntu)