[Mp3-Tags] [VB6] bewerken

[Verwijderd]

Ik wil graag makkelijk mp3 tags bewerke om in het schermpje van een mp3speler de goede naam te lezen.

nu heb ik deze code om de tags in te lezen, (deze code komt uit een topic van vorig jaar):

code:

Dim vID3location
Open txtFileName.Text For Binary As #1   ' Open file as binary.
vID3location = LOF(1) - 127
Seek #1, vID3location

vCheckTag = Input(3, #1)

If (vCheckTag = "ID3" Or vCheckTag = "TAG") Then
  
  vTrackname = Input(30, #1)
  vArtistname = Input(30, #1)
  vAlbumname = Input(30, #1)
  vYear = Input(4, #1)
  vComment = Input(30, #1)
  vGenre = Input(1, #1)
  
  RTrim (vTrackname)
  RTrim (vArtistname)
  RTrim (vAlbumname)
  RTrim (vYear)
  RTrim (vComment)
  RTrim (vGenre)

  txtInfo.Text = "vCheckTag = " & vCheckTag
  txtInfo.Text = txtInfo.Text & vbCrLf & "Trackname = " & vTrackname
  txtInfo.Text = txtInfo.Text & vbCrLf & "Artistname = " & vArtistname
  txtInfo.Text = txtInfo.Text & vbCrLf & "Albumname = " & vAlbumname
  txtInfo.Text = txtInfo.Text & vbCrLf & "Year = " & vYear
  txtInfo.Text = txtInfo.Text & vbCrLf & "Comment = " & vComment
  txtInfo.Text = txtInfo.Text & vbCrLf & "Genre = " & vGenre
  
End If

Close #1

Maar nu wil ik die tags kunnen bewerken en makelijk opslaan.

Iemand een sugestie?

[Verwijderd]

heb je hier wat aan? Dit is volgens mij zelfs nog beter! Zoek anders ff op www.pscode.com (zie sig.)

[Verwijderd]

eej koen, thenx, die prog, van je 2e optie is super :D:D

[D2k]

zoeken is niet verboden hoor