vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   RSS-Feeds  | Newsletter  | Impressum  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2014
 
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:  4.584 

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

nach obenzurück
 
   

Druckansicht Druckansicht Copyright ©2000-2014 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