Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
With lsvDrives
Dim x As Integer
x = Int(.Width / 5.5)
.ColumnHeaders.Add , , "Laufwerk", x
x = Int(.Width / 5)
.ColumnHeaders.Add , , "Name", x
x = Int(.Width / 3.3)
.ColumnHeaders.Add , , "freier Speicher", x
.ColumnHeaders.Add , , "gesamter Speicher", x
.View = lvwReport
For i = 1 To Anzahl
.ListItems.Add , , Laufwerk(i).Buchstabe
.ListItems(i).SubItems(1) = Laufwerk(i).Name
.ListItems(i).SubItems(2) = Laufwerk(i).FreierSpeicher & " MByte"
.ListItems(i).SubItems(3) = Laufwerk(i).gesamterSpeicher & " MByte"
Next i
End With