✔ Dateien eines Ordners in ListBox darstellen [VB.NET]

[AirsoftDivisionHRO]

Hallo, ich möchte alle Dateien eines Ordners in einem ListBox Control anzeigen.

Meine bisherigen Fortschritte:

Dim i As Integer
Dim Folder As String = Environ("windir") & "\FriendBook 2009\"
Dim Count As String = System.IO.Directory.GetFiles(Folder).Count
For i = 0 To Count - 1
lbFriends.Items.Add(System.IO.Directory.GetFiles(Folder(1)))
Next

Zur Laufzeit tritt folgender Fehler auf:

Ein Teil des Pfades C:\Users\Sakeco\Desktop\Verkauf\Filterer\Friendbook 2009\Friendbook 2009\bin\Debug\C konnte nicht gefunden werden.

Nun frag ich mich, in welchen Ordnern VB rumhupst, ich habe doch das Windows Verzeichnis und den Unterordner FriendBook angegeben.

Markiert wird die Zeile:

lbFriends.Items.Add(System.IO.Directory.GetFiles(Folder(i)))

Vielleicht findet ihr ja den Fehler, ich bin momentan zu müde.

 

[Nico Graichen]

Hast du mal geprüft, was Environ("windir") zurück liefert?
Meines Erachtens sollte da ein Leerstring zurückkommen, da es die Pfadvariable so nicht gibt. Probier doch mal %WINDIR%.
Und das Userverszeichnis kommt daher, da du nur einen relativen Pfad als Ergebnis hast und das Ausführungsverzeichnis bei dir auf dem Desktop ist

 

[AirsoftDivisionHRO]

Environ("windir") liefert in meinem Fall

C:\Windows

zurück.

Ich habe es eben auch mit

Environment.SystemDirectory

probiert, selber Fehler.

Edit: Ich habe mir eben die Exception genauer angeguckt. Der Systempfad wird zur Laufzeit korrekt ermitelt, jedoch panscht VB immer
Application.Startuppath rein, so scheint es jedenfalls.

Auch wenn ich einen eindeutigen Pfad wie z.B. "C:\Test" in der Variable Path lagere, haut er mir wieder Application.Starttuppath dazwischen.

Edit²: habe jetzt die Lösung in einem anderen Forum gefunden.

Dim Folder As String = Environ("windir") & "\FriendBook 2009\"
For Each datei As String In System.Directory.GetFiles(Folder)
lbFriends.Items.Add(datei)
Next