PDA

View Full Version : [VB2008] Per ogni file in una cartella impostare autore e titolo canzone dal nome....

Pino67
03-04-2010, 23:35
Ciao.... avrei all'incirca 9.000 files musicali in una sola cartella (25gb:D) di cui la maggior parte nelle proprieta dell'artista e del titolo della canzone ha scritto "Track1" o simile...
In pratica vorrei che dal nome del file(del tipo "Madonna - Hung Up") prendesse in una variabile chiamata A il nome a sinistra del " - "(inclusi gli spazi) nella variabile B quello a destra e poi mi permettesse di elaborarli e con unaltro tasto inserirli nelle proprieta di ogni file....
che dite si puo fare?
grazie mille in anticipo :)
bobbytre
04-04-2010, 00:24
se vuoi scrivere un programma a riguardo dovresti leggere la documentazione dei TAG ID degli mp3 ( http://www.id3.org/ )

se invece hai solo bisogno di aggiungere ai tuoi mp3 le informazioni prendendole dal titolo e non ti interessa la programmazione puoi usare il programma tagscanner (http://www.xdlab.ru/en/)
Pino67
04-04-2010, 02:06
se vuoi scrivere un programma a riguardo dovresti leggere la documentazione dei TAG ID degli mp3 ( http://www.id3.org/ )

se invece hai solo bisogno di aggiungere ai tuoi mp3 le informazioni prendendole dal titolo e non ti interessa la programmazione puoi usare il programma tagscanner (http://www.xdlab.ru/en/)

Il programma sembra interessante... come faccio a a fare n modo che dal nome del file vengano scritti Artista e Titolo nei tag?

Comunque sarei interessato ancora a creare quel programma.... come posso procedere?
Pino67
05-04-2010, 18:16
Raga sono riuscito a separare il nome di sinistra da quello di destra per chi vuole il codice č cosi
ps.
non sapendo come togliere l'estensione del file alla stringa ho agito a modo mio:D

Dim Nomeartit, Stringa As String
Dim information As System.IO.FileInfo
information = My.Computer.FileSystem.GetFileInfo(C:\File.mp3)
Nomeartit = InStr(information.Name, ".mp3")
Nomeartit = Mid(information.Name, 1, Nomeartit - 1)
Stringa = InStr(Nomeartit, " - ") - 1
TextBox2.Text = Mid(Nomeartit, 1, Stringa)
TextBox3.Text = Mid(Nomeartit, Stringa + 4)

Poi per cercare tutti i files in una singola cartella ho usato quest'altro codice...
vi posto il codice come l'ho trovato alla fonte...
qui ogni singolo file viene messo in una listbox

Dim ca As New DirectoryInfo(C:\Cartella)
Dim fail As System.IO.FileInfo
For Each fail In ca.GetFiles
ListBox1.Items.Add(fail.Name)
Next

Bene... la maggior parte del lavoro l'ho risolto ora rimane il problema principale...
Come si fa a scrivere nelle proprieta di un file mp3 l'artista e il titolo?
Aiutatemi perfavore:(
Pino67
05-04-2010, 18:38
Aiuto:(
Pino67
06-04-2010, 14:32
Vi prego aiutatemi anche una minima cosa puņ essermi d'aiuto...