Rech programme pour créer automatiquement un dossier par fichier? - Divers - Programmation
Marsh Posté le 09-01-2011 à 16:15:16
Bon je vais essayer de faire avancer le chmilblik
J'aimerais un petit executable que l'on place dans le dossier avec tous les fichiers à traiter on clique et hop.
A mon avis il faudrait dans les fonctions
1/ Copier le nom du fichiers
2/ Enlever l'extension du fichier
3/ créer le dossier
et ca pour chaque fichier
Quel langage utilisé, j'avais lu des fonctions en vbs qui semblez correspondre (1/getfilename et 3/ createfolder)
Marsh Posté le 09-01-2011 à 16:29:16
Bein programme le toi-même non? en 2 jours tu l'aurais écrit 10x ton script
Marsh Posté le 09-01-2011 à 16:36:35
C'est aussi ma reflexion d'ou mon 2nd post, mais je sais meme pas par quel langage je dois le faire
Marsh Posté le 09-01-2011 à 16:42:54
N'importe lequel ... Bash, VBS, Ruby, Python .. prend celui que tu connais.
Marsh Posté le 09-01-2011 à 16:57:41
OK
N'ayant jamais programmé de ma vie, lequel serait le plus simple pour ca à ton avis.
Marsh Posté le 09-01-2011 à 17:10:14
bof, bash probablement
Marsh Posté le 09-01-2011 à 18:01:46
Finalement j'ai réussi à trouver mon bonheur en vbs et en bidouillant 2 minutes (et en y connaissant rien)
Je laisse le script pour ceux recherchant la meme chose
Dim objFSO, objDossier, objFichier, objResultat
Dim Repertoire
On Error Resume Next
repertoire = inputbox("Repertoire ?" )
Set objFSO = CreateObject("Scripting.FileSystemObject" )
Set objDossier = objFSO.GetFolder(Repertoire)
'Si il y a des fichiers dans le repertoire
If (objDossier.Files.Count > 0) Then
'pour chaque fichier dans le repertoire
For Each objFichier In objDossier.Files
'Si le fichier est un avi alors
If (InStr(1, objFichier.Name, ".avi", 1) > 0) Then
'Suppression de l'extension avipour le nom du repertoire
film = objFichier.Name
nomdossier = Replace(film, ".avi", "" )
'Creation du repertoire du film
objFSO.CreateFolder (Repertoire & "\" & nomdossier)
'Déplacement du film dans le nouveau repertoire
destination = Repertoire & "\" & nomdossier
Set deplacement = objFSO.GetFile(repertoire & "\" & film) 'emplacment origine
deplacement.move(destination & "\" & film) 'emplacement destination
End If
Next
End If
Au lancement du script, il demande le dossier à traiter et hop.
Marsh Posté le 11-02-2011 à 14:31:51
G.E.N.I.A.L. !!!!
Je me suis servi du script pour renommer tous mes Films MKV pour pouvoir travailler avec TVIXIE pour personnaliser une Dvico s1 slim !!
Merci
Marsh Posté le 07-12-2012 à 22:58:26
nnahoj a écrit : Finalement j'ai réussi à trouver mon bonheur en vbs et en bidouillant 2 minutes (et en y connaissant rien) |
Merci beaucoup ! Je cherchais un logiciel mais c'est "plus mieux"
C'est juste simple comme bonjour : un copié-collé dans notepad++, un enregistrement sous l'extension "vbs" et hop, mon dossier pour mon XBMC est content
Pour un noob comme moi ce n'est que du bonheur.
edit : pour .avi à la base : éditer ce script pour les autres extensions mais en tâtonnant je devrais trouver Et j'ai trouvé : du copié-collé à nouveau en changeant l'extension nommée à 3 reprises dans le corps du script original. Classe. Mici !
Marsh Posté le 23-04-2015 à 09:09:52
Bonjour,
moi ce que j'aimerais savoir, c'est si possible d'avoir un SCRIPT.
Pour que chaque fichier que j'ai (pour ma part *.rtf), un dossier soit créer au nom du fichier et le fichier déplacé dans le dossier...
EDiT: j'ai bon essayer je n'y arrive pas avec le script en haut.
j'ai remplacer l'extention "avi" par "rtf". Mais quand je lance le SCRIPT, j'ai une fenêtre qui apparait ou il est écrit "répertoire?".
Mais moi j'aimerais qu'il crée le répertoire automatiquement pour chaque fichier...
Marsh Posté le 23-04-2015 à 11:16:27
Si tu lis le code, il te demande le nom du répertoire ou sont les rtf à traiter, et il fera le reste automatiquement.
A+,
Marsh Posté le 23-04-2015 à 11:33:17
gilou a écrit : Si tu lis le code, il te demande le nom du répertoire ou sont les rtf à traiter, et il fera le reste automatiquement. |
PARFAIT ! merci
Marsh Posté le 26-01-2016 à 14:20:29
Salut !
De mon coté, ça ne fonctionne absolument pas...
Dès que le pop-up s'ouvre, j'entre le nom du dossier dans lequel je veux que le script s'exécute et, au final, il ne fais que me créer un nouveau dossier du nom que j'ai saisi.. Rien n'est déplacé, aucun dossier n'est créer pour chaque nom de fichier.. HELP ?
PS : Je suis sous Win7..
Marsh Posté le 11-11-2016 à 16:55:56
Hello !
Ça fonctionne parfaitement pour ma part, mais j'aimerais un petit éclaircissement :
Comment ne plus chercher uniquement pour les extensions .avi mais TOUTES les extensions ?
Marsh Posté le 11-11-2016 à 21:38:11
Tu enlèves le test If (InStr(1, objFichier.Name, ".avi", 1) > 0) Then
Marsh Posté le 17-03-2018 à 13:00:34
Hello
Petit déterrage
J'aimerais faire la même chose, mais pas en créant un dossier par fichier, mais en mettant un groupe de fichiers dans un dossier.
J'ai essayé le code de nnahoj pour me rendre compte que ça crée un dossier par fichier, évidemment
Or j'ai un répertoire de CD que j'ai rippés avec :
J'aimerais mettre tous les fichiers ayant le même nom d'artiste et album dans un dossier ayant comme nom, ce nom d'artiste et album.
Et avoir donc :
Groupequej'aimeplus - Albumpourri
- Groupequej'aimeplus - Albumpourri - 01 - chansonchiémythique.mpc
- ...
- Groupequej'aimeplus - Albumpourri - 13 - chansonchiémythique.mpc
Supergroupe - Nouvel album géant
- Supergroupe - Nouvel album géant - 01 - chansontropcool.mpc
- ...
- Supergroupe - Nouvel album géant - 12 - chansontropcool.mpc
Faire un répertoire par album avec les chansons dedans, sachant qu'actuellement toutes les chansons de tous les albums sont dans un seul répertoire....
File2folder fait ça, mais il faut lui donner un nom de répertoire à chaque fois.
Merci
Marsh Posté le 19-03-2018 à 22:54:39
Merci de créer un topic dédié à ton problème.
Marsh Posté le 08-01-2011 à 23:24:33
Bonjour a tous,
Voilà je me tourne vers vous pour mon soucis.
J'ai une collection de video. J'ai besoin de créer un dossier pour chaque fichier (ex: pour mon fichier: fichier01.ext, ca me donnerai le dossier fichier01 (sans extension)).
Je n'y connais rien en programmation mais a mon avis un petit batch ou en vbs doit pouvoir faire ca facilement (en vbs j'ai vu les fonctions createfolder, ou getfilename, donc ca à l'air de correspondre à mes recherches..
Ca fait 2 jours que je cherche un truc comme ca et impossible de trouver, surement que j'ai pas employé les bons termes donc si l'un d'entre vous pouvez m'aidez en me disant ou je pouvais trouver ca, ca serait genial
En vous remerciant d'avance.
Message édité par nnahoj le 09-01-2011 à 13:50:07