Visual Basic 6 vs MP3
TaZ
-
TaZ -
TaZ -
Salut!
Lorsque mon logiciel préférer d'encodage
cd vers mp3 me crée mes mp3 il les apelles
"artist-chanson01.mp3"
Mon Pb est que je voudrais avoir 01.mp3
car mon lecteur mp3 portable mes les lit
pas dans l'ordre si elles sont écrit comme ca:
"artist-chanson01.mp3"
Donc ma question était:
Vu que sa me prend beaucoup de temps de toutes
les renomer à chaque fois et que c'est très fastidieux!
Est-il possible de crer un logiciel en vb6 ki les
remomerait tout seul?
01.mp3
02.mp3
03.mp3
etc....
Merci d'avance..
@+
Lorsque mon logiciel préférer d'encodage
cd vers mp3 me crée mes mp3 il les apelles
"artist-chanson01.mp3"
Mon Pb est que je voudrais avoir 01.mp3
car mon lecteur mp3 portable mes les lit
pas dans l'ordre si elles sont écrit comme ca:
"artist-chanson01.mp3"
Donc ma question était:
Vu que sa me prend beaucoup de temps de toutes
les renomer à chaque fois et que c'est très fastidieux!
Est-il possible de crer un logiciel en vb6 ki les
remomerait tout seul?
01.mp3
02.mp3
03.mp3
etc....
Merci d'avance..
@+
A voir également:
- Visual Basic 6 vs MP3
- Visual basic - Télécharger - Langages
- Mp3 gain - Télécharger - Édition & Montage
- Télécharger musique mp3 gratuitement sur pc - Télécharger - Conversion & Extraction
- Microsoft 365 basic - Accueil - Microsoft Office
- Udp vs tcp - Guide
6 réponses
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.
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...
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
@+
merci à tous mais pourriez vous m'aider pour le code vb6 car je débute et je ne sais pas comment faier.....
Meci
@+
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
;-))
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
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