Ciao a tutti, sono veramente alle prime armi con visual basic vorrei capire cosa sto facendo.
Mi spiego meglio, sto cercando di creare un sistema che legga tutti i file mp3 di una cartella.
Prende un file alla volta (pensavo di fare un do until o simili)
Estrapola attraverso la funzione:
EzyID3.Picture e EzyID3.year l'immagine e l'anno (già ora riesco a visualizzarli nel form)
E poi scrive un anno e una foto che ho nell'HD.
Per ora, con mia grande esultazione, sono riuscito a scrivere l'anno, ma non so come prendere l'immagine e scriverla sul tag del file (questo perchè non sono capace di prendere con VB un file).
Ecco lo script che ho fatto fin'ora:
Private Sub Command1_Click()
Dim image, year
Dim NumFile As Integer
Dim sTesto As String
Dim files As Object
Dim file, aaa
EzyID3.FileName = App.Path & "\prova.mp3"
EzyID3.Read
EzyID3.PictureID = 3
image = EzyID3.Picture
year = EzyID3.year
'MsgBox image
'MsgBox year
Anno = year 'questa istruzione lo so, è in più
Image1 = EzyID3.Picture ' questo mi mostra l'immagine all'interno del form
'ID3v1
EzyID3.year = 1111 'questa parte funziona!
EzyID3.Picture = "C:\Documents and Settings\pippo\My Documents\My Pictures\logo-traktor.jpg" 'questa parte no
EzyID3.Save 'questo oggetto esegue la scrittura dei tag che ho impostato
End Sub
Rispondi quotando
