vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Mails senden, abrufen und decodieren - ganz easy ;-)  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2015
 
zurück
Rubrik: Dateisystem13.07.01
GetLogicalDrives-Funktion

Diese Funktion ermittelt alle momentan verfügbaren logischen Laufwerke.

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

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:

    Private Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long

    Beschreibung:
    Diese Funktion ermittelt alle momentan verfügbaren logischen Laufwerke.

    Parameter:
    keine

    Rückgabewert:
    Ein Bitmask (Long) der logischen Laufwerke. Die einzelnen Bits sind gesetzt, wenn die entsprechenden Laufwerke zur Verfügung stehen. Der Wert 1 entspricht Laufwerk A, der Wert 2 entspricht Laufwerk B, der Wert 4 entspricht Laufwerk C, usw. Wenn die Funktion fehlschlägt, wird 0 zurückgegeben.


    Beispiel:

    Private Declare Function GetLogicalDrives Lib "kernel32.dll" () As Long
    ' Logische Laufwerksbuchstaben ermitteln
    Private Sub Command1_Click()
      Dim i As Integer, TmpStr As String, RetVal As Long
     
      RetVal = GetLogicalDrives
     
      ' Die 1 lässt sich nicht in dem Algoritmus unterbringen,
      ' deshalb eine Vorabprüfung
      If (RetVal And 1) = 1 Then
        TmpStr = "A:\,"
      End If
     
      ' Berechnet eine Potenz von 1 zu I und prüft, ob
      ' das angegebene Laufwerk existiert
      For i = 1 To 25
        If (RetVal And 2 ^ i) = 2 ^ i Then
          TmpStr = TmpStr & Chr$(65 + i) & ":\,"
        End If
      Next i
     
      MsgBox "Folgende Laufwerksbuchstaben existieren: " & Left$(TmpStr, Len(TmpStr)  _
        - 1), vbOKOnly + vbInformation, "Gefundene Laufwerksbuchstaben"
     
    End Sub

    Diese Seite wurde bereits 5.031 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