Hi, ich habe folgendes Problem: Ich habe einen Ordner mit mehreren Unterordnern, in diesen Unterordnern mehrere Dateien mit verschiedenen Dateinamen und verschiedene Dateierweiterungen, keine weiteren Ordner. Ich möchte alle Unterordner nach Dateien eines bestimmten Typs Durchsuchen und die Dateinamen ohne die Erweiterung in eine ListBox eintragen. Ich kann bisher komplette Pfade inklusive Dateiname und Erweiterung in Listen eintragen, ich kann bisher keine Dateinamen ohne Pfad und Erweiterung anzeigen. Das hier ist mein Code:
Quellcode
- Dim verzeichnis As String
- Dim unterordner() As String
- Dim dateien() As String
- Dim i As Integer
- Dim j As Integer
- Directory.SetCurrentDirectory("C:\Users\Chris\Desktop\Neuer Ordner (2)")
- verzeichnis = Directory.GetCurrentDirectory()
- unterordner = Directory.GetDirectories(verzeichnis)
- lstUnterordner.Items.Clear()
- For i = 0 To unterordner.Count - 1
- lstUnterordner.Items.Add(unterordner(i))
- dateien = Directory.GetFiles(unterordner(i),"*.txt")
- For j = 0 To dateien.Count - 1
- lstDateien.Items.Add(dateien(j))
- Next
- Next
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kincaid“ ()