Programmes & scripts > C++ et VB
FileList - Macro VBA pour Word

Liste les fichiers, d'une extension donnée (mp3, htm, doc...), d'un répertoire défini par l'utilisateur, dans un fichier au format HTML

Très utile pour lister vos fichiers mp3!

Note :
Pour utiliser la macro ouvrir, dans Word, l'éditeur Visual Basc et coller le code ci-après


Sub FileList()

' Func boîte de dialog

msg1 = InputBox("Indiquer le lecteur (A, C...) où effectuer la recherche" & Chr(10) & "Si lcteur est vide le répertoire courant sera l'objet de la recherche: ", "FileList - Lecteur", "")

If Not msg1 = "" Then ChDrive msg1

msg2 = InputBox("Indiquer le répertoire où effectuer la recherche" & Chr(10) & "Exemple: C:\dir ou C:\dir\subdir" & Chr(10) & "Si répertoire est vide tout le répertoire, " & CurDir() & ", sera l'objet de la recherche", "FileList - Répertoire", CurDir)

If Not msg2 = "" Then ChDir msg2

msg3 = InputBox("Indiquer le type de fichier à rechercher (mp3, htm...)" & Chr(13) & "Si type de fichier est nul tous les fichiers seront listés", "FileList - Type de fichier", "")

' Structure de recherche

With Application.FileSearch

    ' Extension recherchée

    If msg3 = "" Then .FileName = "*.*" Else .FileName = "*." & msg3

    .SearchSubFolders = True

    .LookIn = CurDir

    If .Execute(msoSortByFileName) > 0 Then

        ' Ouverture pour écriture du fichier list_[extension].htm

        Open CurDir & "\list_" & msg3 & ".htm" For Output As #1

        ' Impression des tags HTML

        Print #1, "<html><body><h2>Répertoire " _

        & CurDir & " - Listage des fichiers ." & msg3 & _

        "</h2><table border=0 cellSpacing=12><tr><th>Fichier</th><th>Taille</th></tr>"

        ' Boucle pour imprimer les résultats de la recherche

        For I = 1 To .FoundFiles.Count

            Print #1, "<tr><td>" & Mid(.FoundFiles(I), Len(CurDir) + 1) _

            & "</td><td>", FileLen(.FoundFiles(I)), "</td></tr>"

        Next I

        Print #1, "</table></body></html>"

        Close #1

        ' Boîte d'info de fin

        fin = MsgBox("Le dossier (" & CurDir & ") contient " & .FoundFiles.Count & " fichier(s) ." & msg3 & Chr(13) & "Le listing HTML a été écrit dans le fichier: " & CurDir & "\list_" & msg3 & ".htm", 64, "FileList - Résultat")

    Else

        ' Pas de fichier trouvé

        fin = MsgBox("Aucun fichier n'a été trouvé.", 64, "FileList - Résultat")

    End If

End With

End Sub

Sserveur:
Maintenu:
Modifié:

Programmes & scripts > C++ et VB FileList - Macro VBA pour Word

Programmes & scripts > C++ et VB
FileList - Macro VBA pour Word