Imprimer une liste des fichiers d'un dossier

Résolu/Fermé
Arthémise
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
- 20 mars 2009 à 19:51
Arthémise
Messages postés
38
Date d'inscription
mardi 28 octobre 2008
Statut
Membre
Dernière intervention
25 octobre 2014
- 26 mars 2009 à 19:07
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...
A voir également:

3 réponses

Mytå
Messages postés
2967
Date d'inscription
mardi 20 janvier 2009
Statut
Contributeur
Dernière intervention
20 décembre 2016
910
21 mars 2009 à 01:52
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å
0