Mounted Drives

Post

Posted
Rating:
#1 (In Topic #358)
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
Following a comment by Sholzy regarding moving a cache to another drive, I started looking into ways to access all mounted drives and as a start came up with the code below. As usual I am looking for feedback. Does this code work on your system?

All you need to do is paste the code into a 'Graphical Application' and run it. All it does is look at the drives and display the drive you click on in a DirChooser. There is a timer so that if you plug in (or remove) a USB drive /Mount (or unmount) a drive it should change the display. It will only display mounted drives.

I look forward to your comments.

Code (gambas)

  1. ' Gambas class file
  2.  
  3. sDriveToWorkWith As New String[]
  4. HSplit1 As HSplit
  5. DirChooser1 As DirChooser
  6. GridViewDrives As GridView
  7. LabelPath As Label
  8. TimerGetData As Timer
  9. siChange As Short
  10.  
  11. Public Sub Form_Open()
  12.  
  13.   BuildForm
  14.   HSplit1.Layout = [70, 30]
  15.   TimerGetData_Timer
  16.   TimerGetData.Start
  17.  
  19.  
  20. Public Sub GridViewDrives_Click()
  21.  
  22.   Dim siRow, siCol As Short
  23.  
  24.   DirChooser1.Root = GridViewDrives[Last.Row, 6].Text
  25.  
  26.   For siRow = 0 To GridViewDrives.Rows.Max
  27.     For siCol = 0 To 6
  28.       If siRow <> Last.Row Then
  29.         GridViewDrives[siRow, siCol].Background = Color.Default
  30.       Else
  31.         GridViewDrives[siRow, siCol].Background = Color.LightGray
  32.       End If
  33.     Next
  34.   Next
  35.  
  37.  
  38. Public Sub DisplayData()
  39.  
  40.   Dim sHeader As String[] = ["Drive", "Type", "Size", "Used", "Available", "Used", "Mounted"]
  41.   Dim siRow, siCol As Short
  42.  
  43.   With GridViewDrives
  44.     .Clear
  45.     .Columns.Count = 7
  46.     .Rows.Count = 0
  48.  
  49.   For siCol = 0 To 6
  50.     GridViewDrives.Columns[siCol].Title = sHeader[siCol]
  51.   Next
  52.  
  53.   For siRow = 0 To sDriveToWorkWith.Max
  54.     Inc GridViewDrives.Rows.Count
  55.     For siCol = 0 To 6
  56.       GridViewDrives[siRow, siCol].Text = Split(sDriveToWorkWith[siRow], "`")[siCol]
  57.     Next
  58.   Next
  59.  
  60.   GridViewDrives.Columns.Width = -1
  61.   GridViewDrives.Height = (GridViewDrives.Rows[0].Height * sDriveToWorkWith.Count) + 35
  62.  
  64.  
  65. Public Sub TimerGetData_Timer()
  66.  
  67.   Dim sData, sHold, sPart1, sPart2 As String
  68.   Dim sDrives As String[]
  69.   Dim siLoop, siSplit As Short
  70.  
  71.   siChange = sDriveToWorkWith.Count
  72.   sDriveToWorkWith.Clear
  73.  
  74.   Shell "df -aTh" To sData
  75.   sDrives = Split(sData, gb.NewLine, "", True)
  76.  
  77.   For siLoop = 0 To sDrives.Max
  78.  
  79.     If sDrives[siLoop] Begins "/dev/s" Then
  80.       sPart2 = Mid(sDrives[siLoop], InStr(sDrives[siLoop], "/", 6))
  81.       sPart1 = Mid(sDrives[siLoop], 1, InStr(sDrives[siLoop], "/", 6) - 1)
  82.       sData = ""
  83.  
  84.       For siSplit = 0 To Split(sPart1, " ").Max
  85.         sData &= Split(sPart1, " ")[siSplit] & "`"
  86.       Next
  87.  
  88.       Repeat
  89.         sHold = sData
  90.         sData = Replace(sData, "``", "`")
  91.       Until sData = sHold
  92.  
  93.       If sData Ends "`" Then sData = Left(sData, -1)
  94.       sDriveToWorkWith.Add(sData & "`" & sPart2)
  95.     Endif
  96.  
  97.   Next
  98.  
  99.   If siChange <> sDriveToWorkWith.Count Then DisplayData
  100.  
  102.  
  103. Public Sub DirChooser1_Change()
  104.  
  105.   LabelPath.Text = DirChooser1.SelectedPath
  106.  
  108.  
  109. Public Sub BuildForm()
  110.  
  111.   With Me
  112.     .Height = 575
  113.     .Width = 1100
  114.     .Arrangement = Arrange.Vertical
  115.     .Padding = 5
  117.  
  118.   With HSplit1 = New HSplit(Me)
  119.     .Expand = True
  120.     .Layout = [70, 30]
  122.  
  123.   With GridViewDrives = New GridView(HSplit1) As "GridViewDrives"
  124.     .Header = GridView.Both
  125.     .Padding = 2
  126.     .AutoResize = True
  128.  
  129.   With DirChooser1 = New DirChooser(HSplit1) As "DirChooser1"
  130.     .Expand = True
  132.  
  133.   With LabelPath = New Label(Me) As "LabelPath"
  134.     .Alignment = Align.Right
  135.     .Font.Bold = True
  136.     .Height = 28
  138.  
  139.   With TimerGetData = New Timer As "TimerGetData"
  140.     .delay = 250
  142.  
Online now: No Back to the top

Post

Posted
Rating:
#2
sholzy
Avatar
Administrator
sholzy is in the usergroup ‘unknown’
The code as is wasn't able to find my Raid partitions. Raid partitions show up as /dev/md[x].

One small change to line 79 allowed your code to find all my partitions, including the Raid partitions.

Code (gambas)

  1. If sDrives[siLoop] Begins "/dev/s" Then
  2.  
changed to:

Code (gambas)

  1. If sDrives[siLoop] Begins "/dev/" Then
  2.  
sholzy
Gambas One Site Director

To report bugs in the Gambas IDE:
Official Gambas Bug Tracker
Online now: No Back to the top

Post

Posted
Rating:
#3
cogier
Avatar
Guru
cogier is in the usergroup ‘Guru’
If sDrives[siLoop] Begins "/dev/" Then

This solved one issue but unfortunately I ended up with all sorts of irrelevant stuff so have a go with this code.

Code (gambas)

  1. ' Gambas class file
  2.  
  3. sDriveToWorkWith As New String[]
  4. HSplit1 As HSplit
  5. DirChooser1 As DirChooser
  6. GridViewDrives As GridView
  7. LabelPath As Label
  8. TimerGetData As Timer
  9. siChange As Short
  10.  
  11. Public Sub Form_Open()
  12.  
  13.   BuildForm
  14.   TimerGetData_Timer
  15.   TimerGetData.Start
  16.  
  18.  
  19. Public Sub GridViewDrives_Click()
  20.  
  21.   Dim siRow, siCol As Short
  22.  
  23.   DirChooser1.Root = GridViewDrives[Last.Row, 6].Text
  24.  
  25.   For siRow = 0 To GridViewDrives.Rows.Max
  26.     For siCol = 0 To 6
  27.       If siRow <> Last.Row Then
  28.         GridViewDrives[siRow, siCol].Background = Color.Default
  29.       Else
  30.         GridViewDrives[siRow, siCol].Background = Color.LightGray
  31.       End If
  32.     Next
  33.   Next
  34.  
  36.  
  37. Public Sub DisplayData()
  38.  
  39.   Dim sHeader As String[] = ["Drive", "Type", "Size", "Used", "Available", "Used", "Mounted"]
  40.   Dim siRow, siCol As Short
  41.  
  42.   With GridViewDrives
  43.     .Clear
  44.     .Columns.Count = 7
  45.     .Rows.Count = 0
  47.  
  48.   For siCol = 0 To 6
  49.     GridViewDrives.Columns[siCol].Title = sHeader[siCol]
  50.   Next
  51.  
  52.   For siRow = 0 To sDriveToWorkWith.Max
  53.     Inc GridViewDrives.Rows.Count
  54.     For siCol = 0 To 6
  55.       GridViewDrives[siRow, siCol].Text = Split(sDriveToWorkWith[siRow], "`")[siCol]
  56.     Next
  57.   Next
  58.  
  59.   GridViewDrives.Columns.Width = -1
  60.   GridViewDrives.Height = (GridViewDrives.Rows[0].Height * sDriveToWorkWith.Count) + 35
  61.  
  63.  
  64. Public Sub TimerGetData_Timer()
  65.  
  66.   Dim sData, sHold, sPart1, sPart2, sCtrl As String
  67.   Dim sDrives As String[]
  68.   Dim siLoop, siSplit As Short
  69.  
  70.   siChange = sDriveToWorkWith.Count
  71.   sDriveToWorkWith.Clear
  72.  
  73.   Shell "df -aTh" To sData
  74.   sDrives = Split(sData, gb.NewLine, "", True)
  75.  
  76.   For siLoop = 0 To sDrives.Max
  77.  
  78.     If sDrives[siLoop] Begins "/dev/" Then
  79.  
  80.       sCtrl = Trim(Split(sDrives[siLoop], " ")[0])
  81.       If Len(sCtrl) <> 9 Or Not IsNumber(Right(sCtrl)) Then Continue
  82.  
  83.       sPart2 = Mid(sDrives[siLoop], InStr(sDrives[siLoop], "/", 6))
  84.       sPart1 = Mid(sDrives[siLoop], 1, InStr(sDrives[siLoop], "/", 6) - 1)
  85.       sData = ""
  86.  
  87.       For siSplit = 0 To Split(sPart1, " ").Max
  88.         sData &= Split(sPart1, " ")[siSplit] & "`"
  89.       Next
  90.  
  91.       Repeat
  92.         sHold = sData
  93.         sData = Replace(sData, "``", "`")
  94.       Until sData = sHold
  95.  
  96.       If sData Ends "`" Then sData = Left(sData, -1)
  97.       sDriveToWorkWith.Add(sData & "`" & sPart2)
  98.     Endif
  99.  
  100.   Next
  101.  
  102.   If siChange <> sDriveToWorkWith.Count Then DisplayData
  103.  
  105.  
  106. Public Sub DirChooser1_Change()
  107.  
  108.   LabelPath.Text = DirChooser1.SelectedPath
  109.  
  111.  
  112. Public Sub BuildForm()
  113.  
  114.   With Me
  115.     .Height = 575
  116.     .Width = 1100
  117.     .Arrangement = Arrange.Vertical
  118.     .Padding = 5
  120.  
  121.   With HSplit1 = New HSplit(Me)
  122.     .Expand = True
  123.     .Layout = [70, 30]
  125.  
  126.   With GridViewDrives = New GridView(HSplit1) As "GridViewDrives"
  127.     .Header = GridView.Both
  128.     .Padding = 2
  129.     .AutoResize = True
  131.  
  132.   With DirChooser1 = New DirChooser(HSplit1) As "DirChooser1"
  133.     .Expand = True
  135.  
  136.   With LabelPath = New Label(Me) As "LabelPath"
  137.     .Alignment = Align.Right
  138.     .Font.Bold = True
  139.     .Height = 28
  141.  
  142.   With TimerGetData = New Timer As "TimerGetData"
  143.     .delay = 250
  145.  
  147.  
Online now: No Back to the top

Post

Posted
Rating:
#4
sholzy
Avatar
Administrator
sholzy is in the usergroup ‘unknown’
Same as before, didn't find the /dev/md[x] Raid partitions.

Here's the output of df if it helps any.

Code

$ df -aTh
Filesystem     Type         Size  Used Avail Use% Mounted on
sysfs          sysfs           0     0     0    - /sys
proc           proc            0     0     0    - /proc
udev           devtmpfs     7.8G     0  7.8G   0% /dev
devpts         devpts          0     0     0    - /dev/pts
tmpfs          tmpfs        1.6G   58M  1.6G   4% /run
/dev/sdd2      ext4         110G  8.0G   96G   8% /
securityfs     securityfs      0     0     0    - /sys/kernel/security
tmpfs          tmpfs        7.9G   54M  7.8G   1% /dev/shm
tmpfs          tmpfs        5.0M  4.0K  5.0M   1% /run/lock
tmpfs          tmpfs        7.9G     0  7.9G   0% /sys/fs/cgroup
cgroup2        cgroup2         0     0     0    - /sys/fs/cgroup/unified
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/systemd
pstore         pstore          0     0     0    - /sys/fs/pstore
efivarfs       efivarfs        0     0     0    - /sys/firmware/efi/efivars
bpf            bpf             0     0     0    - /sys/fs/bpf
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/devices
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/freezer
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/pids
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/perf_event
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/cpu,cpuacct
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/rdma
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/memory
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/net_cls,net_prio
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/cpuset
cgroup         cgroup          0     0     0    - /sys/fs/cgroup/blkio
systemd-1      -               -     -     -    - /proc/sys/fs/binfmt_misc
mqueue         mqueue          0     0     0    - /dev/mqueue
debugfs        debugfs         0     0     0    - /sys/kernel/debug
hugetlbfs      hugetlbfs       0     0     0    - /dev/hugepages
/dev/sde2      ext4         720G  516M  682G   1% /Recovery
/dev/md0       ext4         196G   62M  186G   1% /Shared
/dev/md1       ext4         720G  160G  524G  24% /Storage
/dev/sdd1      vfat         285M  5.1M  280M   2% /boot/efi
/dev/sde3      ext4          55G  3.4G   49G   7% /home
tmpfs          tmpfs        1.6G   12K  1.6G   1% /run/user/1000
fusectl        fusectl         0     0     0    - /sys/fs/fuse/connections
tmpfs          tmpfs        1.6G     0  1.6G   0% /run/user/0
sunrpc         rpc_pipefs      0     0     0    - /run/rpc_pipefs
nfsd           nfsd            0     0     0    - /proc/fs/nfsd
binfmt_misc    binfmt_misc     0     0     0    - /proc/sys/fs/binfmt_misc
sholzy
Gambas One Site Director

To report bugs in the Gambas IDE:
Official Gambas Bug Tracker
Online now: No Back to the top
1 guest and 0 members have just viewed this.