Schreibgeschützte Auflistung aller verfügbaren Laufwerke.
Syntax | |
Drives := TCEWindows.Drives() | |
Rückgabewert | |
Typ |
Beschreibung |
TCEWindows.Drives |
Auflistungsobjekt |
Parameter | |
Keine |
Anmerkungen
In Laufwerken mit austauschbaren Medien müssen keine Medien eingelegt sein, damit sie in der Drives-Auflistung angezeigt werden.
Mit Hilfe dieses Beispieles können Sie alle verfügbaren Laufwerke aufzählen:
Dim FSO As New TCEWindows.FileSystem, d As TCEWindows.Drive
For Each d In FSO.Drives
If d.IsReady = True Then
MsgBox "Laufwerk " & d.DriveLetter & " mit verfügbarem Speicher " & d.FreeSpace
End If
EndFor