Hallo liebe VB-Paradiesvögel,
ich hab ein kleines Problemchen bei meinem Programm.
Ich bin derzeit dabei ein Programm zu schreiben, welches nach jedem Durchlauf eine Datei erstellt.
Die Dateien sind wie folgt aufgebaut:
Eine Nummer (NutzerID)-Tag-Monat-Stunde-Minute-Sekunde.xx
Sie werden alle in einem Ordner gespeichert. Das auslesen in der Listview ist auch kein Problem.
Jetzt möchte ich aber, dass nur die Dateien angezeigt werden die auch dem Nutzer gehören.
Ein Beispiel:
2211-14-12-17-56-30.xx
2211-14-12-17-57-30.xx
3311-14-12-17-58-30.xx
2511-14-12-17-59-30.xx
2611-14-12-17-59-44.xx
Ich möchte jetzt im Listview aber nur die haben, die mit 2211 beginnen..
Ich hab mich wund gesucht und leider nichts gefunden oO"
Hier mein Code fürs auflisten der Dateien:
ich hab ein kleines Problemchen bei meinem Programm.
Ich bin derzeit dabei ein Programm zu schreiben, welches nach jedem Durchlauf eine Datei erstellt.
Die Dateien sind wie folgt aufgebaut:
Eine Nummer (NutzerID)-Tag-Monat-Stunde-Minute-Sekunde.xx
Sie werden alle in einem Ordner gespeichert. Das auslesen in der Listview ist auch kein Problem.
Jetzt möchte ich aber, dass nur die Dateien angezeigt werden die auch dem Nutzer gehören.
Ein Beispiel:
2211-14-12-17-56-30.xx
2211-14-12-17-57-30.xx
3311-14-12-17-58-30.xx
2511-14-12-17-59-30.xx
2611-14-12-17-59-44.xx
Ich möchte jetzt im Listview aber nur die haben, die mit 2211 beginnen..
Ich hab mich wund gesucht und leider nichts gefunden oO"
Hier mein Code fürs auflisten der Dateien:
VB.NET-Quellcode
- Dim path As String = "hystorie\bon"
- Sub bonszeige()
- ' Verzeichnis, dessen Dateien ermittelt werden sollen
- Dim sPath As String
- ' ggf. abschließenden Backslash entfernen
- sPath = path
- 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()
- ' 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
Viele Frauen kamen, viele sind gegangen, eine ist geblieben 12.5.12 ich liebe dich Schatz