Imprimer une liste des fichiers d'un dossierRésolu/Fermé

Question

Bonjour à tous,

Avec quelques fichiers, une copie écran fait l'affaire, mais avec une centaine de fichiers...

J'avais essayé REP-LISTING pour ce faire mais le choix des colonnes n'est pas répercuté à l'impression, pas plus que les caractères. J'ai posé la question au concepteur qui n'a pas daigné répondre...

Si quelqu'un à une méthode...

Mytå · Answer

Salut le forum

Avec Excel, ensuite tu imprimes la feuille

Le code

'Liste des fichiers d'un répertoire
'John Walkenbach, mpep

Sub ListFiles()
'   Which directory?
    Directory = "c:\windows\desktop\"

'   Insert new sheet & headers
    r = 1
    Worksheets.Add
    Cells(r, 1) = "FileName"
    Cells(r, 2) = "Size"
    Cells(r, 3) = "Date/Time"
    Range("A1:C1").Font.Bold = True
    r = r + 1

'   Get the files
    On Error Resume Next
    With Application.FileSearch
        .NewSearch
        .LookIn = Directory
        .Filename = "*.*"
        .SearchSubFolders = False
        .Execute
'       Write the file info
        For i = 1 To .FoundFiles.Count
            Cells(r, 1) = .FoundFiles(i)
            Cells(r, 2) = FileLen(.FoundFiles(i))
            Cells(r, 3) = FileDateTime(.FoundFiles(i))
            r = r + 1
        Next i
    End With
End Sub

Mytå

Arthémise · Answer

Bonjour,

Merci mais je n'ai rien compris !

Je n'utilise pas Excel. J'avais WORKS Suite avec le tableur Work mais je suis passé maintenant sous la suite Open Office 3 avec Writer, Calc, etc...

Arthémise · Answer

Bonsoir,

Merci pour la réponse à mon problème. Je ne suis pas un lion en informatique et, de plus, si j'avais bien en main (à peu près !) la suite Microsoft, je suis passé à Open Office 3 et je patauge un peu n'y retrouvant pas mes marques. Mais ça va venir...

Imprimer une liste des fichiers d'un dossier

3 réponses

Discussions similaires

Newsletters