[.NET] Fehler beim einlesen von Dateien

 importfol.ShowDialog()

 Dim sPath As String
 sPath = KryptonTextBox1.Text
 If sPath.EndsWith("\") And sPath.Length > 3 Then
 sPath = sPath.Substring(0, sPath.Length - 1)
 End If


 Dim oDir As New System.IO.DirectoryInfo(sPath)



 Dim oFiles As System.IO.FileInfo() = oDir.GetFiles()

 Dim oFiles2 As System.IO.FileInfo() = oDir.GetFiles("*.mp3", "*.wav")

 Dim oFiles3 As System.IO.FileInfo() = oDir.GetFiles("*.mpeg", "*.avi")



 Dim oFile As System.IO.FileInfo
 playlist.Items.Clear()

 If alle.Checked = True Then
 For Each oFile In oFiles
 playlist.Items.Add(oFile.Name)
 Next
 ElseIf audio.Checked = True Then
 For Each oFile In oFiles2
 playlist.Items.Add(oFile.Name)
 Next
 ElseIf video.Checked = True Then
 For Each oFile In oFiles3
 playlist.Items.Add(oFile.Name)
 Next
 End If