Könnte gestern nacht nicht schlafen:

Dim fs As Object, d As Object, dletter As String, vname As String, _
sname As String, t As String


Private Sub cmdInfo_Click()
If txtLaufwerk.Text <> »« And Right(txtLaufwerk, 1) = »:« Then
Call ShowVolumeInfo(txtLaufwerk.Text)
Else
MsgBox »Laufwerk eingeben - z.B. d: «, vbExclamation
End If
End Sub

Sub ShowVolumeInfo(drvpath)
Set fs = CreateObject(»Scripting.FileSystemObject«)
If fs.DriveExists(drvpath) = True Then
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))

Select Case d.DriveType
Case 0: t = »kenn ich nicht...«
Case 1: t = »Wechseldatenträger«
Case 2: t = »Festplatte«
Case 3: t = »Netzwerk«
Case 4: t = »CD-ROM«
Case 5: t = »RAM Disk«
End Select

If d.IsReady Then
dletter = d.DriveLetter
vname = d.VolumeName
sname = d.ShareName
Call Ausgabe
Else
MsgBox »Drive is not Ready.«
End If

Else
MsgBox »Laufwerk « & txtLaufwerk.Text & » existiert nicht!«
End If
End Sub

Private Sub Ausgabe()
txtDriveletter = dletter
txtVolumename = vname
txtSharename = sname
Label4.Caption = »Laufwerk « & txtLaufwerk.Text & » ist vom Typ « & t
End Sub

Private Sub cmdAlleAnzeigen_Click()
Dim dc, s, n
Set fs = CreateObject(»Scripting.FileSystemObject«)
Set dc = fs.Drives
For Each d In dc
s = s & d.DriveLetter & » - «
If d.IsReady Then
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
Else
n = »nicht bereit...«
End If
s = s & n & vbCrLf
n = »«
Next
MsgBox s
End Sub

Private Sub Command1_Click()
End
End Sub