Ordnerinhalt in Listbox Problem Verfasst am: 13.07.2008, 16:26
Hi,
ich würde gernen einen Inhalt von nem Ordner in einer Listbox anzeigen. Habe nun auch einen Source, mit dem dies gut klappt.
Source: Visual Basic: [code]Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
' Verzeichnis, dessen Dateien ermittelt werden sollen Dim sPath As String
' ggf. abschließenden Backslash entfernen sPath = TextBox1.Text If sPath.EndsWith("") And sPath.Length > 3 Then sPath = sPath.Substring(0, sPath.Length - 1) End If
' Directory-Object erstellen Dim oDir As New System.IO.DirectoryInfo(sPath)
' alle Dateien des Ordners Dim oFiles As System.IO.FileInfo() = oDir.GetFiles("*.txt")
' Datei-Array durchlaufen und in ' ListBox übertragen Dim oFile As System.IO.FileInfo ListBox1.Items.Clear For Each oFile In oFiles ListBox1.Items.Add(oFile.Name) Next End Sub[/code] Quelle: http://www.vbarchiv.net/tipps/details.php?id=617
So weit so gut, nur werden in der Listbox die Dateien so angezeigt:
a.txt b.txt c.txt ...
Problem: Endung .txt wird angezeigt in der Listbox
Hab nun weiter gesucht und nen Source gefunden, indem alle Dateien von dem Ordner in der Listbox angezeigt werden. Leider eben alle.
Source: Visual Basic: [code]Dim mydir() As String = IO.Directory.GetFiles(Pfad) For Each i As String In mydir 'ListBox1.Items.Add(IO.Path.GetFileName(i)) ListBox1.Items.Add(IO.Path.GetFileNameWithoutExtension(i)) Next i[/code]
Dann sieht das so aus:
a b c ...
Problem: Hier wird alle Dateien von einem Ordner wiedergeben, also nicht nur Textdateien sondern auch noch andere
Gibt es eine Möglichkeit die irgendwie zusammen zu setzten? Das nur .txt Dateien von dem Ordner in einer Listbox angezeigt werden, ohne .txt dran und nur .txt Dateien?
Registrieren
Login
