Deklaration: Declare Function GetDriveType Lib "kernel32.dll" _ Alias "GetDriveTypeA" ( _ ByVal nDrive As String) As Long Beschreibung: Parameter:
Rückgabewert: Rückgabekonstanten: ' CD-Rom Laufwerk Const DRIVE_CDROM = 5 ' Festplatte Const DRIVE_FIXED = 3 ' RAM-Laufwerk Const DRIVE_RAMDISK = 6 ' Netz-Laufwerk Const DRIVE_REMOTE = 4 ' Diskettenlaufwerk/Wechseldatenträger (z.B. auch ZIP) Const DRIVE_REMOVABLE = 2 Beispiel: Private Declare Function GetDriveType Lib "kernel32.dll" _ Alias "GetDriveTypeA" ( _ ByVal nDrive As String) As Long Private Const DRIVE_CDROM = 5 Private Const DRIVE_FIXED = 3 Private Const DRIVE_RAMDISK = 6 Private Const DRIVE_REMOTE = 4 Private Const DRIVE_REMOVABLE = 2 Private Sub Command1_Click() Dim ChkDrive As String ChkDrive = InputBox("Bitte geben sie einen Laufwerksbuchstaben ein", _ "Lauferkstyp ermitteln", "c:\") Select Case GetDriveType(ChkDrive) Case DRIVE_CDROM MsgBox "Das angegebene Laufwerk ist ein CD-ROM Laufwerk", vbInformation + _ vbOKOnly, "Laufwerkstyp" Case DRIVE_FIXED MsgBox "Das angegebene Laufwerk ist eine Festplatte", vbInformation + _ vbOKOnly, "Laufwerkstyp" Case DRIVE_RAMDISK MsgBox "Das angegebene Laufwerk ist ein RAM-Laufwerk", vbInformation + _ vbOKOnly, "Laufwerkstyp" Case DRIVE_REMOTE MsgBox "Das angegebene Laufwerk ist ein Netzwerk-Laufwerk", vbInformation + _ vbOKOnly, "Laufwerkstyp" Case DRIVE_REMOVABLE MsgBox "Das angegebene Laufwerk ist ein Diskettenlaufwerk", vbInformation + _ vbOKOnly, "Laufwerkstyp" Case Else MsgBox "Das angegebene Laufwerk existiert nicht", vbInformation + _ vbOKOnly, "Laufwerkstyp" End Select End Sub Diese Seite wurde bereits 15.309 mal aufgerufen. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Buchempfehlung 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 sevGraph (VB/VBA) Grafische Auswertungen Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! |
||||||||||||
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. |