Hi,
ich habe ei programm geschrieben, welches alle Dateien und Ordner des gesammten PCs auflisten soll.
Hier mein Code:
das in einem Thread:
und hier die Funktion:
und nur eine Frage: Ist das so richtig?
Euer EsTari
ich habe ei programm geschrieben, welches alle Dateien und Ordner des gesammten PCs auflisten soll.
Hier mein Code:
das in einem Thread:
und hier die Funktion:
VB.NET-Quellcode
- Public Function akt_list_ausgabe(ByVal Folders)
- Try
- For Each Folder In IO.Directory.GetDirectories(Folders)
- ListBox2.Items.Add(Folder)
- ordner += 1
- For Each File In IO.Directory.GetFiles(Folder)
- ListBox1.Items.Add(File)
- files += 1
- Next
- For Each SubFolder In IO.Directory.GetDirectories(Folder)
- ListBox2.Items.Add(SubFolder)
- akt_list_ausgabe(SubFolder)
- ordner += 1
- Next
- Label2.Text = ordner
- Label4.Text = files
- Next
- Catch : End Try
- End Function
und nur eine Frage: Ist das so richtig?
Euer EsTari