Re: Laufwerke auflisten

By wsh und wmi war jedsmal das "Ready" das Dinges/Eigenschaft was
"gestartet" hat.

Wenn Sie keine Seriennummer brauchen oder aehnliche Eigenschaften muesste es
gehen.

---------------------------------------------




"Markus Olderdissen" <msnews@xxxxxxxxx> wrote in message
news:OKirKSDUGHA.5836@xxxxxxxxxxxxxxxxxxxxxxx
Marco Appoldt <marco.appoldt@xxxxxxxx> schrieb:

Ich suche nach einer Möglichkeit, beim Start einer Konsole unter XP
alle verfügbaren Laufwerke im System auflisten zu lassen.

'wäre sowas annehmbar?

Option Explicit

Dim sDriveList
Dim sDrive

sDriveList = GetDrives()

For Each sDrive In Split(sDriveList, vbCrLf)
sDrive = Split(sDrive, " ")(0)
Call MsgBox(sDrive)
Next

Function GetDrives()
Dim sBuffer
Dim oDrive

With CreateObject("Scripting.FileSystemObject")
For Each oDrive In .Drives
If Len(sBuffer) Then
sBuffer = sBuffer & vbCrLf
End If

sBuffer = sBuffer & "(" & oDrive & ") "

If oDrive.DriveType = 1 Then
sBuffer = sBuffer & "3,5-Diskette"
ElseIf oDrive.IsReady Then
sBuffer = sBuffer & oDrive.VolumeName
Else
sBuffer = sBuffer & "???"
End If
Next
End With
End Function


.