par

Bonjour, j'ai un répertoire qui contient des milliers de fichiers de différents types. J’aimerais pouvoir générer un fichier texte contenant la liste de tous les fichiers d'une même extension, pdf par exemple. J'utilise Windows 10. Merci.

1 Réponse

+1 validé
par

Vous pouvez utiliser Visual Basic pour lister tous les fichiers d'un même répertoire, et de ses sous répertoires, selon un extension particulière, puis générer un fichier texte avec cette même liste.

Pour lister les fichiers d'une même extension d'un répertoire, vous devez :

  • Créer un fichier liste.txt dans le répertoire.
  • Copier le code suivant dans le bloc-note.
  • Modifier la huitième ligne et y spécifier l'extension à lister.
  • Enregistrer le fichier au format VBS : lister.vbs par exemple.
  • Double cliquer sur le fichier VBS pour lister les fichiers.

Script Batch VBS pour lister les fichiers d'une même extension d'un répertoire :

Option Explicit
Const ForWriting = 2
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim objNOM
objNOM = "liste.txt"
Dim objExt
objExt = "pdf"
Dim objREP
objREP = CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName)
Dim objTS
Set objTS = objFSO.OpenTextFile(objREP & objNOM, ForWriting, True)

Recurse objFSO.GetFolder(objREP)
objTS.Close()

Sub Recurse(obj)
    Dim objFile, objSubFolder

    For Each objFile In obj.Files
        If LCase(objFSO.GetExtensionName(objFile.Name)) = objExt Then
            objTS.WriteLine(objFile.Path)
        End If
    Next

    For Each objSubFolder In obj.SubFolders
        Recurse objSubFolder
    Next
End Sub

Lectures Recommandées

Régis Chaperon - Welcome Reset

"Lorsqu'un virus informatique d'une nouvelle génération infecte en quelques heures les systèmes de distribution électriques, le monde entier se retrouve plongé dans le noir. Les banques, les distributeurs de billets, le chauffage, tout s'arrête."

Mais si même une intelligence artificielle américaine est incapable de vaincre le virus, est-ce qu'un homme qui a fui la modernité saura découvrir la faiblesse de ce virus informatique inconnu ?

Welcome Reset est un roman bien rythmé, efficace et réaliste.

Edward Snowden - Mémoires vives

"Je m'appelle Edward Joseph Snowden. Avant, je travaillais pour le gouvernement mais aujourd'hui je suis au service de tous. Il m'a fallu près de trente ans pour saisir la différence et quand j'ai compris, ça m'a valu quelques ennuis au bureau."

L'homme qui a tout risqué pour dénoncer la surveillance globale, ou l'extraordinaire histoire d'un garçon brillant qui a grandi "en ligne", d'un homme devenu espion, puis lanceur d'alerte, et, en exil, la consciencce de l'internet.

Mémoires vives est un témoignage exceptionnel, également disponible en numérique.

Sujets Connexes

Offre Sponsorisée

Ailleurs sur le Web

Merci pour votre visite sur 1FORMATIK.com

Un petit clic sur la pub est toujours apprécié, c'est elle qui finance le site

Bon surf

...