Créaliste : Différence entre versions
m (+Balise) |
m (-Saut de lignes) |
||
| Ligne 8 : | Ligne 8 : | ||
<pre> | <pre> | ||
Chemin = inputbox("Entrez le chemin du dossier racine.", "Créaliste") | Chemin = inputbox("Entrez le chemin du dossier racine.", "Créaliste") | ||
| − | |||
Set fso = CreateObject("Scripting.FileSystemObject") | Set fso = CreateObject("Scripting.FileSystemObject") | ||
| − | |||
Set Dossier = fso.GetFolder(Chemin) | Set Dossier = fso.GetFolder(Chemin) | ||
| − | |||
Set Liste = fso.CreateTextFile("Liste.txt", false) | Set Liste = fso.CreateTextFile("Liste.txt", false) | ||
| − | |||
For Each SDossier in Dossier.SubFolders | For Each SDossier in Dossier.SubFolders | ||
| − | |||
Liste.Writeline "" | Liste.Writeline "" | ||
| − | |||
Liste.Writeline "==" & SDossier.Name & "==" | Liste.Writeline "==" & SDossier.Name & "==" | ||
| − | |||
For Each Fichier in SDossier.Files | For Each Fichier in SDossier.Files | ||
| − | |||
Liste.Writeline "*" & Fichier.Name | Liste.Writeline "*" & Fichier.Name | ||
| − | |||
Next | Next | ||
| − | |||
For Each SSDossier in SDossier.SubFolders | For Each SSDossier in SDossier.SubFolders | ||
| − | |||
Liste.Writeline "" | Liste.Writeline "" | ||
| − | |||
Liste.Writeline "===" & SSDossier.Name & "===" | Liste.Writeline "===" & SSDossier.Name & "===" | ||
| − | |||
For Each Fichier in SSDossier.Files | For Each Fichier in SSDossier.Files | ||
| − | |||
Liste.Writeline "*" & Fichier.Name | Liste.Writeline "*" & Fichier.Name | ||
| − | |||
Next | Next | ||
| − | |||
Next | Next | ||
| − | |||
Next | Next | ||
| − | |||
Liste.Close | Liste.Close | ||
</pre> | </pre> | ||
[[Catégorie:Autre non-officiels]] | [[Catégorie:Autre non-officiels]] | ||
Version actuelle datée du 24 février 2012 à 05:48
Créaliste est un petit script vbs qui liste tous les fichiers des sous et sous-sous dossiers du dossier que vous indiquerez.
Il est prévu pour fonctionner avec un dossier "Thème" qui regroupe des genres (par exemple "Bataille" ou "Donjon"...). Et pour chaque genres des sous-genres (par exemple "Epique" ou "Unique"...). Il génère un fichier Liste.txt où est stockée les titres classés avec la syntaxe Wiki. Il ne reste plus qu'a copier-coller.
Attention : vérifiez bien le script avant de l'utiliser, des scripts malintentionnés peuvent endommager votre machine.
Script[modifier]
Chemin = inputbox("Entrez le chemin du dossier racine.", "Créaliste")
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossier = fso.GetFolder(Chemin)
Set Liste = fso.CreateTextFile("Liste.txt", false)
For Each SDossier in Dossier.SubFolders
Liste.Writeline ""
Liste.Writeline "==" & SDossier.Name & "=="
For Each Fichier in SDossier.Files
Liste.Writeline "*" & Fichier.Name
Next
For Each SSDossier in SDossier.SubFolders
Liste.Writeline ""
Liste.Writeline "===" & SSDossier.Name & "==="
For Each Fichier in SSDossier.Files
Liste.Writeline "*" & Fichier.Name
Next
Next
Next
Liste.Close
