vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
sevDataGrid - G?nnen Sie Ihrem SQL-Kommando diesen kr?nenden Abschlu?!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: Dateisystem13.07.01
GetDriveType-Funktion

Diese Funktion ermittelt zu einem angegebenen Laufwerksbuchstaben den Laufwerkstyp.

Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinMEViews:  7.947 

Summer-Special bei Tools & Components!
Gute Laune Sommer bei Tools & Components
Top Summer-Special - Sparen Sie teilweise über 100,- EUR
Alle sev-Entwicklerkomponenten und Komplettpakete jetzt bis zu 25% reduziert!
zum Beispiel:
  • Developer CD nur 455,- EUR statt 569,- EUR
  • sevDTA 2.0 nur 224,30 EUR statt 299,- EUR
  •  
  • vb@rchiv   Vol.6 nur 18,70 EUR statt 24,95 EUR
  • sevCoolbar 3.0 nur 58,70 EUR statt 69,- EUR
  • - Werbung -Und viele weitere Angebote           Aktionspreise nur für kurze Zeit gültig

    Deklaration:

    Declare Function GetDriveType Lib "kernel32.dll" _
      Alias "GetDriveTypeA" ( _
      ByVal nDrive As String) As Long

    Beschreibung:
    Diese Funktion ermittelt zu einem angegebenen Laufwerksbuchstaben den Laufwerkstyp.

    Parameter:
    nDriveErwartet einen String, der den Laufwerksbuchstaben des zu ermittelnden Laufwerkstyps angibt.

    Rückgabewert:
    Die Rückgabe ist eine der nachfolgend aufgeführten Rückgabe-Konstanten oder "1" wenn das angegebene Laufwerk nicht existiert.


    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 7.947 mal aufgerufen.

    nach obenzurück
     
       

    Druckansicht Druckansicht Copyright ©2000-2015 vb@rchiv Dieter Otter
    Alle Rechte vorbehalten.
    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.

    Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel