A voir également:
- Visual Basic 6 vs MP3
- Visual basic - Télécharger - Langages
- Microsoft 365 basic - Guide
- Microsoft visual c++ runtime - Guide
- Convertisseur mp3 - Télécharger - Conversion & Extraction
- Singe mp3 - Forum Audio
6 réponses
choubaka
Messages postés
39399
Date d'inscription
jeudi 4 avril 2002
Statut
Modérateur
Dernière intervention
3 août 2024
2 101
23 déc. 2002 à 19:57
23 déc. 2002 à 19:57
euh? bien oui pourquoi pas...
bonnes fêtes!
Choubanimal :
"Le poilu poilant au poil"
bonnes fêtes!
Choubanimal :
"Le poilu poilant au poil"
xav1611
Messages postés
525
Date d'inscription
mardi 22 janvier 2002
Statut
Membre
Dernière intervention
13 décembre 2006
13
23 déc. 2002 à 23:24
23 déc. 2002 à 23:24
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.
Farf
Messages postés
96
Date d'inscription
mercredi 25 septembre 2002
Statut
Membre
Dernière intervention
7 mai 2004
3
24 déc. 2002 à 12:02
24 déc. 2002 à 12:02
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
WhiteFang
Messages postés
2063
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
26 déc. 2002 à 04:49
26 déc. 2002 à 04:49
;-))
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
WhiteFang
Messages postés
2063
Date d'inscription
dimanche 1 septembre 2002
Statut
Membre
Dernière intervention
15 février 2008
204
26 déc. 2002 à 04:51
26 déc. 2002 à 04:51
;-))
Wouala !! ;-))
A toi maintenant d'utiliser la touche F1 at'donf !
;-))
Wild and Free
Wouala !! ;-))
A toi maintenant d'utiliser la touche F1 at'donf !
;-))
Wild and Free