Laufwerksbezeichnungen - Laufwerke auslesen

25/07/2008 - 12:34 von A. Brückmann | Report spam
Hallo,
ich möchte zu allen vorhandenen Laufwerken, auch Netzlaufwerke,
nicht nur den Laufwerksbuchstaben, sondern auch die Bezeichnug
auslesen, ( z.B. Lokaler Datentràger (C:) oder Netzinfo (K:))

Nachstehendes Programm gibt nur den Laufwerksbuchstaben aus.
Was mache ich falsch?

Danke für Hilfe !!!
A. Brückmann


On Error Resume Next
Dim objLW() As System.IO.DriveInfo
objLW = IO.DriveInfo.GetDrives
For i = 0 To objLW.Length - 1
TextBox1.Text = TextBox1.Text & "Laufwerk: " & objLW(i).Name & vbCrLf
TextBox1.Text = TextBox1.Text & "Bezeichnung: " &
objLW(i).VolumeLabel & vbCrLf
Next
 

Lesen sie die antworten

#1 Martin H.
25/07/2008 - 12:57 | Warnen spam
Hallo A.,

der erste Fehler ist "On Error Resume Next". Damit schaltest Du nàmlich
die Fehlerbehandlung aus. Ohne "On Error" erhielt ich direkt die
Fehlermeldung, daß ein Geràt nicht bereit war. Also flugs die
.IsReady-Eigenschaft abgefragt - fertig.

Ich habe mit folgendem Code das gewünschte Ergebnis erzielt:

Dim objLW() As System.IO.DriveInfo
objLW = IO.DriveInfo.GetDrives
For i = 0 To objLW.Length - 1
If objLW(i).IsReady = True Then
TextBox1.Text = TextBox1.Text & "Laufwerk: " & objLW(i).Name & vbCrLf
TextBox1.Text = TextBox1.Text & "Bezeichnung: " & _
objLW(i).VolumeLabel & vbCrLf
End If
Next

Beste Grüße,

Martin


On 25.07.2008 18:34, wrote A. Brückmann:
Hallo,
ich möchte zu allen vorhandenen Laufwerken, auch Netzlaufwerke,
nicht nur den Laufwerksbuchstaben, sondern auch die Bezeichnug
auslesen, ( z.B. Lokaler Datentràger (C:) oder Netzinfo (K:))

Nachstehendes Programm gibt nur den Laufwerksbuchstaben aus.
Was mache ich falsch?

Danke für Hilfe !!!
A. Brückmann


On Error Resume Next
Dim objLW() As System.IO.DriveInfo
objLW = IO.DriveInfo.GetDrives
For i = 0 To objLW.Length - 1
TextBox1.Text = TextBox1.Text& "Laufwerk: "& objLW(i).Name& vbCrLf
TextBox1.Text = TextBox1.Text& "Bezeichnung: "&
objLW(i).VolumeLabel& vbCrLf
Next

Ähnliche fragen