Sub FormatFiles(ByVal Source As String, ByVal Destination As String, ByVal _
  Format As Integer)
        Dim srcdir As New DirectoryInfo(Source)
        For Each file As IO.FileInfo In srcdir.GetFiles
            Dim CDNr As Integer
            Dim TitelNr As Integer
            Dim Titel As String
            Dim Interpret As String
            Dim Album As String
            Dim fs As New FileStream(file.FullName, FileMode.Open, _
              FileAccess.Read)
            Dim br As New BinaryReader(fs)
            Dim tagposition As Integer = file.Length - 128
            fs.Position = tagposition + 3
            Titel = br.ReadChars(30)
            fs.Position = tagposition + 33
            Interpret = br.ReadChars(30)
            fs.Position = tagposition + 63
            Album = br.ReadChars(30)
        Next
    End Sub

_______________________________________________________________________
Heute stehen wir am Abgrund. Morgen sind wir schon einen Schritt weiter.

iComputerfreak