Créaliste

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

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