title image


Smiley Re: Laufwerksauswahl
Hallo Helmuth,verstehe die Fragestellung nicht so ganz.Ist es Dein Problem festzustellen welche Laufwerke vorhanden sind ?Falls ja habe ich folgendes gefundenTschauUwe...----------------------------------------------------- Dieses Programm dient der Erfassung aller an einen Rechner angeschlossenen und verfügbaren Laufwerke, inklusive der Netzwerklaufwerke. 'Diesen Teil in ein leeres Form kopieren, einen Command'Button und eine Listbox einfügenOption ExplicitPrivate Declare Function GetDriveType Lib "Kernel32" _ Alias "GetDriveTypeA" ByVal nDrive As String) _ As Long Private Declare Function GetLogicalDriveStrings Lib _ "Kernel32" Alias "GetLogicalDriveStringsA" _ (ByVal nBufferLength As Long, ByVal lpBuffer _ As String) As LongPrivate Const DRIVE_REMOVABLE = 2Private Const DRIVE_FIXED = 3Private Const DRIVE_REMOTE = 4Private Const DRIVE_CDROM = 5Private Const DRIVE_RAMDISK = 6Private Sub Command1_Click() Dim L&, Ergebnis&, X&, Typ& Dim Puffer$, Laufwerke$, Laufwerk$, Bezeichnung$ List1.Clear Puffer = Space(64) L = 64 Ergebnis = GetLogicalDriveStrings(L, Puffer) Laufwerke = Left$(Puffer, Ergebnis) Do While X X = InStr(Puffer, Chr$(0)) If X Then Laufwerk = Left$(Puffer, X) Puffer = Mid$(Puffer, X + 1, Len(Puffer)) Typ = GetDriveType(Laufwerk) If Typ 1 Then Select Case Typ Case 2: Bezeichnung = "Wechseldatenträger" Case 3: Bezeichnung = "Festplatte" Case 4: Bezeichnung = "Netzlaufwerk" Case 5: Bezeichnung = "CD-ROM" Case 6: Bezeichnung = "RAM-Disk" End Select Laufwerk = UCase(Mid$(Laufwerk, 1, 2)) List1.AddItem Laufwerk & " " & Bezeichnung End If Else Exit Do End If LoopEnd Sub
[Bild]
Ach wie gerne würde ich die Welt verbessern, doch Gott gibt mir den Quellcode nicht.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: