Visual Basic 6 vs MP3

euh? bien oui pourquoi pas...

bonnes fêtes!

Choubanimal : 
"Le poilu poilant au poil"

Salut,

C'est quoi ton logiciel d'encodage, parceque j'en ai utilisé plusieurs, et il y a souvent des options du style %n %t %a pour justement prendre en compte le numéro de la chanson, le titre ou l'artiste. Il est souvent possible de définir la façon don tu veux sortir tes fichiers, en créant par exemple le nom de dossier avec %a, et définir ensuite uniquement %n pour ne récupérer que le numéro des chansons. Avec une connexion à CDDB, il récupère tout seul les infos et organise tes mp3 comme tu le souhaite.
PS: pour le %, ça dépend peut être des logiciels.
Sinon, il est bien sur possible de créer le code vb pour renommer un fichier.

Sous VB, tu te fait une boucle avec l'instruction pour renommer :

Name oldpathname As newpathname

voila. le plus chiant à faire c'est la sélection de tes fichiers...

ok
merci à tous mais pourriez vous m'aider pour le code vb6 car je débute et je ne sais pas comment faier.....

Meci
@+

;-))

En fait, t'as pas vraiment besoin de VB, il te suffit d'avoir une appli du pack office (VBA étant intégré)... Le code que je vais te faire est du code sous Excel 2000....

Bon, j'ai fait cela vite fait, mais c'est du code pour débutant, il devra-être optimisé !! ;-)) Mais pour débuter en VB, Excel (2000) est une excellente approche...
Une fois bien compris et optimisé à fond, tu pourras le passer en VB et en faire un EXE...

'---------------------------------------------------------------------------
'Attention : Il faut que tu sois sur une feuille vierge ou pas importante...
'1) Tu exécutes ListeDesMp3, et si ça te va,
'2) Tu exécutes RenommeLesMp3....
Public Chemin
'----------Liste des MP3
Sub ListerLesMp3()
Dim Disque, Fichier, L, Cpt, X, Reponse
Reponse = Application.GetOpenFilename
If UCase(Reponse) = "FAUX" Then Exit Sub
Cpt = 0
For X = 1 To Len(Reponse)
If Mid(Reponse, X, 1) = "\" Then Cpt = X
Next
Disque = Left(Chemin, 1)
Chemin = Left(Reponse, Cpt)
ChDrive Disque
ChDir Chemin
Cells.Clear
L = 1
Fichier = Dir("*.mp3")
If IsEmpty(Fichier) Then Exit Sub
Do While Fichier <> ""
Cells(L, 1).Value = Fichier
Cells(L, 2).Value = "A renommer en"
Cells(L, 3).Value = L & ".mp3"
Fichier = Dir()
L = L + 1
Loop
Columns.AutoFit
Application.DisplayAlerts = True
End Sub
'----------Renomme les fichiers
Sub RenommeLesMp3()
Dim DerLne, L
DerLne = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
For L = 1 To DerLne
Name Chemin & Cells(L, 1).Value As Chemin & Cells(L, 3).Value
Next
End Sub
'En VB pur, cela serait un peu plus long à écrire car il faut mettre dans
'une forme les objet DriveListBox/DirListBox/FileListBox et les gérer, ce qui
'est un peu plus long à mettre en oeuvre que GetOpenFileName...

Wild and Free

Merci beaucoup White Fang!!!!!

je testerais sa dès mon retour de vacances!!!!

@+
Merci.....;)