Dieser Tipp zeigt, wie sich alle vorhandenen Laufwerke eines bestimmten Laufwerktyps ermitteln lassen. So lassen sich z.B. ganz schnell alle vorhandenen CD-Laufwerke bestimmen - sei es ein normales CD-ROM Laufwerk, ein CD-Brenner oder auch ein DVD-Laufwerk. Die Funktion GetAllDrives liefert einen String zurück, welcher die Laufwerksbuchstaben enthält, z.B. CDF. Als Parameter übergeben Sie der Funktion den Laufwerkstyp, z.B. DRIVE_CDROM. Wird kein Parameter angegeben, so erhalten Sie die Laufwerksbuchstaben aller Laufwerks-Typen. ' zunächst die benötigten API-Deklarationen Private Declare Function GetLogicalDriveStrings Lib "kernel32" _ Alias "GetLogicalDriveStringsA" ( _ ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long Private Declare Function GetDriveType Lib "kernel32" _ Alias "GetDriveTypeA" ( _ ByVal nDrive As String) As Long Public Const DRIVE_REMOVABLE = 2 Public Const DRIVE_FIXED = 3 Public Const DRIVE_REMOTE = 4 Public Const DRIVE_CDROM = 5 Public Const DRIVE_RAMDISK = 6 ' Alle Laufwerke eines bestimmten Typs ermitteln ' z.B. CD-ROM Laufwerke Function GetAllDrives(Optional ByVal DriveType As _ Long = 0) As String Dim I As Integer Dim Result As Long Dim Drives() As String Dim Dummy As String Dim sDrives As String Dummy = Space(255) Result = GetLogicalDriveStrings(Len(Dummy), Dummy) Drives = Split(Dummy, Chr$(0)) For I = 0 To UBound(Drives) - 1 If GetDriveType(Drives(I)) = DriveType Or _ DriveType = 0 Then sDrives = sDrives & Left$(Drives(I), 1) End If Next I GetAllDrives = sDrives End Function Beispiele Dim sDrives As String ' Ermitteln aller Disketten-/ZIP-Laufwerke sDrives = GetAllDrives(DRIVE_REMOVABLE) ' Ermitteln aller Festplatten-Laufwerke sDrives = GetAllDrives(DRIVE_FIXED) ' Ermitteln aller Netz-Laufwerke sDrives = GetAllDrives(DRIVE_REMOTE) ' Ermitteln aller CD-Laufwerke sDrives = GetAllDrives(DRIVE_CDROM) ' Ermitteln ALLER Laufwerke sDrives = GetAllDrives() Dieser Tipp wurde bereits 22.406 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats November 2024 Dieter Otter WAVE-Dateien aufnehmen Ein Code-Ausschnitt, mit dem sich WAVE-Dateien in verschiedenen Aufnahmequalitäten aufnehmen lassen. Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |