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