Hallo!
Ich möchte, das mein Programm alle Dateien in einem bestimmten Directory anzeigt.
Das ganze funktioniert schonmal. Nun habe ich aber eine Checkbox, mit der man einstellen kann, ob Sub-Directories berücksichtigt werden sollen.
Ich habe schon gegooglet, aber habe leider nichts gefunden, oder nur eine Teil-Lösung, die nicht wirklich verständlich war.
Hier mein Code:
Würde mich über jegliche Hilfe freuen!
MfG,
C8002.
Ich möchte, das mein Programm alle Dateien in einem bestimmten Directory anzeigt.
Das ganze funktioniert schonmal. Nun habe ich aber eine Checkbox, mit der man einstellen kann, ob Sub-Directories berücksichtigt werden sollen.
Ich habe schon gegooglet, aber habe leider nichts gefunden, oder nur eine Teil-Lösung, die nicht wirklich verständlich war.
Hier mein Code:
VB.NET-Quellcode
- Private Sub Worker_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles Worker.DoWork
- Dim FileLocation As DirectoryInfo = New DirectoryInfo(path)
- Dim fi As List(Of FileInfo) = New List(Of FileInfo)
- For Each File In FileLocation.GetFiles()
- If (File IsNot Nothing) Then
- If (IO.Path.GetExtension(File.ToString.ToLower) = ext) Then
- Invoke(Sub() lb.Items.Add(File.FullName))
- End If
- End If
- Next
- Dim files() As String = Invoke(Sub() lb.Items.ToString())
- For i As Integer = 0 To lb.Items.Count - 1
- If File.Exists(ex2 & "\" & IO.Path.GetFileName(lb.Items(i))) = False Then
- File.Copy(lb.Items(i), ex2 & "\" & IO.Path.GetFileName(lb.Items(i)))
- End If
- Next
- End Sub
- 'Notiz: Variablen, die nicht deklariert sind, sind globale Variablen.
Würde mich über jegliche Hilfe freuen!
MfG,
C8002.
“If debugging is the process of removing software bugs, then programming must be the process of putting them in.”
-Unbekannt
-Unbekannt