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.292 mal aufgerufen. |
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! 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 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. |