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.360 mal aufgerufen. |
sevWizard für VB5/6 Professionelle Assistenten im Handumdrehen Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Buchempfehlung Tipp des Monats Juni 2024 Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. 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. |