2 217
modifications
Modifications
Page créée avec « 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 dossi... »
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
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
