GetFiles gibt keinen Fehler aus

AIRGAMER · 26. Dezember 2021, 19:22

Guten Abend,

ich habe folgendes Problem:

Ich möchte in einen Pfad alle Dateien des Dateityp : ".exe" finden
Dies funktioniert auch soweit, nur wenn in dem Ordner keinen Datei enthalten ist, gibt es keine Fehlermeldung aus oder macht weiter es passiert einfach nichts mehr.
Wäre glücklich für jeden Tipp woran es liegen könnte.

Das ist der Code mit dem ich es versucht habe.

VB.NET-Quellcode

Public Sub Dateisuchen()
For Each foundfile As String In My.Computer.FileSystem.GetFiles(ListBox2.Items(i).ToString, FileIO.SearchOption.SearchAllSubDirectories, "*.exe")
Listbox1.items.add(foundfile)
if foundfile is Nothing then
MsgBox("Nichts gefunden")
end if
Next
' i = integer damit ich nur bestimme Zeile aus der Listbox auslese welche den Pfad enthält. Wird woanders Deklariert
End Sub

PS: In Ordnern wo sich eine Datei befindet funktioniert es einwandfrei

Gruß AIRGAMER

CodeTags korrigiert ~VaporiZed

Naifu · 26. Dezember 2021, 20:07

Probiere mal.

VB.NET-Quellcode

Public Sub Dateisuchen()
For Each foundfile As String In My.Computer.FileSystem.GetFiles(ListBox2.Items(i).ToString, FileIO.SearchOption.SearchAllSubDirectories, "*.exe")
ListBox1.Items.Add(foundfile)
If foundfile Is Nothing Then
MsgBox("Nichts gefunden")
End If
Next
If ListBox1.Items.Count = 0 Then
ListBox1.Items.Add("Leer")
End If
' i = integer damit ich nur bestimme Zeile aus der Listbox auslese welche den Pfad enthält. Wird woanders Deklariert
End Sub

mrMo · 26. Dezember 2021, 20:10

Pack das Ergebnis von .GetFiles() erstmal in ein Array bevor du per Schleife durch iterierst. Dann prüfe, ob da überhaupt was drin ist.

Zudem würde ich eher das hier verwenden docs.microsoft.com/de-de/dotne…ory.getfiles?view=net-6.0

slice · 26. Dezember 2021, 20:14

1. Den My-Namespace solltest du lieber nicht benutzten, benutze lieber System.IO.Directory.GetFiles
2. GetFiles gibt dir eine ReadOnlyCollection<string> zurück, wenn die ReadOnlyCollection (oder jede andere Liste/Array) keine Items enthält, wird deine iteration (der Code im Loop) nicht ausgeführt.
Kannst du auch ganz einfach selbst herausfinden, in dem du ein Breakpoint in Zeile 5 setzt, deine Anwendung ausführst und dann F10 drückst, damit gehst du zur nächsten Zeile im Code die ausgeführt wird.

ErfinderDesRades · 27. Dezember 2021, 09:30

Jo, um auf den Thread-Titel zurückzukommen:
Es ist ja kein Fehler, wenn in einem Ordner keine passende Datei gefunden wird - daher wird kein Fehler ausgegeben.
Es wird einfach die Liste der Treffer ausgegeben - gibt es keine Treffer, dann ist die Liste eben leer - ist ja kein Fehler.

PS - Sowas:

VB.NET-Quellcode

For Each foundfile As String In My.Computer.FileSystem.GetFiles(ListBox2.Items(i).ToString, FileIO.SearchOption.SearchAllSubDirectories, "*.exe")
'...
If foundfile Is Nothing Then
MsgBox("Nichts gefunden")
End If
next

ist Quatsch.
foundfile kann niemals Nothing sein.

FormFollowsFunction · 27. Dezember 2021, 16:15

~~If String.IsNullOrWhiteSpace(foundfile) Then ...~~
würde funktionieren.

edit:
Ha ha, stimmt,

ich hätte mal aufmerksam lesen sollen, war irgentwie bei Zeilen.
post3 bringts auf den Punkt.

mrMo · 27. Dezember 2021, 16:20

FormFollowsFunction schrieb:

If String.IsNullOrWhiteSpace(foundfile) Then ...würde funktionieren.

So ein Quatsch.
1. Was soll da funktionieren wenn keine Dateien im Order vorhanden sind?
2. Warum sollte .GetFiles() leere Strings zurück geben?

RodFromGermany · 28. Dezember 2021, 09:10

@FormFollowsFunction Wenn keine Ziel-Datei vorhanden ist, macht For Each einen Sprung.
@AIRGAMER Um den Zustang "Keine Datei da" abzufangen, musst Du die GetFiles()-Abfrage explizit auswerten:

Spoiler anzeigen

AIRGAMER · 29. Dezember 2021, 15:34

Hallo,

als erstes entschuldige ich mich für meine viel zu späte Antwort.
@RodFromGermany mit deiner Lösung hat es geklappt

Danke @everyone für eure Hilfe

GetFiles gibt keinen Fehler aus

GetFiles gibt keinen Fehler aus

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

FormFollowsFunction schrieb:

VB.NET-Quellcode

Benutzer online 1

Tags

Ähnliche Themen

7 Benutzer haben hier geschrieben