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.104 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. |
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... Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||||||
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. |