- Feste Positionierung für das Fenster der Formateinstellung
- Fix bei WMV Dateien
TCPMP_PFAD=\Hard Disk\sonstiges\tcpmp\player_ce2.exe
FILMPFAD=\Netzwerk\Filme\
FONTSIZE_LISTE=12
FONTSIZE_BESCHREIBUNG=16
SCHRIFTFARBE=200,200,255
INTERVALL=100
[COLOR="Red"]Imports System.Text.RegularExpressions[/COLOR]
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim files() As String
files = IO.Directory.GetFiles("\")
If files IsNot Nothing Then
Array.Sort(files)
For Each foundFile As String In files
Dim file As String
file = foundFile.Substring(foundFile.LastIndexOf("\") + 1)
If [COLOR="Red"]Regex.IsMatch(file.Substring(0, 1), "[0-9]")[/COLOR] Then
ListBox1.Items.Add(foundFile)
End If
Next
End If
End Sub
End Class
For Each foundFile As String In files
If Regex.IsMatch(io.Path.GetFileName(foundFile).Substring(0, 1), "[0-9]") Then
ListBox1.Items.Add(foundFile)
End If
Next
Heißt das das bei Dir Filme aus Unterorndnern wieder gegeben werden ?
Ich habe z.Z. das Problem das Playlisten erzeugt werden, diese aber nicht angezeigt werden.