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