|
VB.Net-Forum - Beitragsübersicht - |
|
Thema | V10: Netzlaufwerke anzeigen |
Von |
Jürgen |
E-Mail |
newjupiter@gmx.de |
Datum |
18. September 2015 um 17:33:13 |
Frage |
Hallo Zusammen,
habe Probleme die Netzlaufwerek anzuzeigen.
Mein Code, Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click Try 'Zone 1 ' Beispiel: 'Alle localen ListBox1.Items.Clear() For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives 'MsgBox("Fix") If Drive.DriveType = IO.DriveType.Fixed Then If Drive.IsReady Then 'Laufwekrsbuchstabe und VolumeLabel anzeigen ListBox1.Items.Add(Drive.Name & " [" & Drive.VolumeLabel & "]") Else 'Laufwerksbuchstabe anzeigen ListBox1.Items.Add(Drive.Name & " [nicht bereit]") End If End If Next Catch ex As Exception MsgBox(ex.Message & " Zone 1") End Try
Try ' ' Beispiel: 'Alle Netzwerke ListBox2.Items.Clear() For Each Drive As IO.DriveInfo In IO.DriveInfo.GetDrives If Drive.DriveType = IO.DriveType.Network Then 'MsgBox("Hallo Netz") If Drive.IsReady Then 'Laufwekrsbuchstabe und VolumeLabel anzeigen ListBox2.Items.Add(Drive.Name & " [" & Drive.VolumeLabel & "]") Else 'Laufwerksbuchstabe anzeigen ListBox2.Items.Add(Drive.Name & " [nicht bereit]") End If End If Next
Catch ex As Exception MsgBox(ex.Message & " Zone 2") End Try
End Sub Die Localen LW werden erkannt und angezeigt, jedoch kein Netzlaufwerk.
Die Zeile If Drive.DriveType = IO.DriveType.Network Then gibt keine Netzwerk zurück.
Kann mir Jemand helfen?
OS ist Win 7
mfg Jürgen |
|
Antwort: |
Von |
Jürgen |
E-Mail |
newjupiter@gmx.de |
Datum |
20. September 2015 um 16:09:25 |
Antwort |
Hallo Alex,
Fall ist gelöst. Die Netzwerkelaufwerke werden nur angezeigt, wenn im Explorer über >> Netzadresse hinzufügen << das gewünsche Laufwerk hinzugefügt und anschließend mit einem Laufwerksbuchstaben versehen wird. Dann geht auch meine "einfache" Version
mfg Jügen |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|