Try This
Private Type TagInfo
Tag As String * 3
Songname As String * 30
artist As String * 30
album As String * 30
year As String * 4
comment As String * 30
genre As String * 1
End Type
Dim CurrentTag As TagInfo
Private Sub CmdWrite_Click()
FileName = Text1.Text
Open FileName For Binary As #1
With CurrentTag
.Songname = ""
.artist = ""
.album = ""
.year = ""
.comment = TxtComment.Text 'Place your BPM count here.
.genre = 255
Get #1, FileLen(FileName) - 127, .Tag
If Not .Tag = "TAG" Then
Put #1, FileLen(FileName) + 1, "TAG"
Else
Put #1, FileLen(FileName) - 127, "TAG"
End If
Put #1, , .Songname
Put #1, , .artist
Put #1, , .album
Put #1, , .year
Put #1, , .comment
Put #1, , .genre
Close #1
End With
End Sub
Steve.
