Imprimer une liste des fichiers d'un dossier
Résolu/Fermé
Arthémise
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
Arthémise
- Messages postés
- 38
- Date d'inscription
- mardi 28 octobre 2008
- Statut
- Membre
- Dernière intervention
- 25 octobre 2014
A voir également:
- Imprimer arborescence dossier windows 10
- Imprimer la liste des fichiers d'un dossier sous windows 10 - Meilleures réponses
- Comment imprimer la liste des fichiers d'un dossier - Meilleures réponses
- Comment imprimer le contenu d'un dossier sous windows 10 ? ✓ - Forum - Windows 10
- Imprimer une arborescence - Forum - Windows
- Imprimer répertoire, s/répertoire, fichier ✓ - Forum - Windows
- Windows - Obtenir la liste des fichiers d'un dossier - Conseils pratiques - Logiciels
- Utiliser les fonctions méconnues de l'Explorateur de Windows 10 - Guide
3 réponses
Mytå
21 mars 2009 à 01:52
- Messages postés
- 2967
- Date d'inscription
- mardi 20 janvier 2009
- Statut
- Contributeur
- Dernière intervention
- 20 décembre 2016
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å
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å