Option Explicit
Dim pos As Long
Dim Info As mp3info
Dim strFilename As String
 
Private Type mp3info
    TAG As String * 3
    Song As String * 30
    Interpret As String * 30
    Album As String * 30
    Jahr As String * 4
    Comment As String * 30
    Genre As Byte
End Type
 
Private Sub cmdEnde_Click()
    Close #1
    End
End Sub
 
Private Sub cmdLoad_Click()
 
 
    With cdlDialog1
    strFilename = 0
    .DialogTitle = "Datei Öffnen"
    .InitDir = App.Path
    .Filter = "MP3 Files (*.mp3)|*.mp3|All Files (*.*)|*.*"
    .FilterIndex = 1
    .DefaultExt = "*.mp3"
    .CancelError = False
    .ShowOpen
    '.ShowSave
    strFilename = .FileName
    End With
 
    If strFilename <> "" Then
        Open strFilename For Binary As #1
            pos = LOF(1) - 127
            Get #1, pos, Info
            txtTag.Text = Trim(Info.TAG)
            txtTitel.Text = Trim(Info.Song)
            txtInterpret.Text = Trim(Info.Interpret)
            txtAlbum.Text = Trim(Info.Album)
            txtJahr.Text = Info.Jahr
            txtComment.Text = Trim(Info.Comment)
            txtGenre.Text = Info.Genre
            cmdSave.Enabled = True
        Else
            MsgBox ("Es wurde keine Datei ausgewählt")
 
        End If
        Close #1
End Sub
 
Private Sub cmdSave_Click()
 
        Open strFilename For Binary As #1
        pos = LOF(1) - 127
        Info.Song = txtTitel.Text
        Info.Interpret = txtInterpret.Text
        Info.Album = txtAlbum.Text
        Info.Jahr = txtJahr.Text
        Info.Comment = txtComment.Text
        Info.Genre = txtGenre.Text
 
        Put #1, pos, Info
        Close #1
End Sub
 
 
Private Sub Form_Load()
    cmdSave.Enabled = False
End Sub