Récupérer Tailles des Fichiers d'un Répértoire

[Foufoudora]

Bonjour Le forum

J'ai une petite question.

je souhaite récupérer les tailles des fichiers d'un répertoire et les mettre dans un fichier xls colonne A.

Est-ce possible ?

Merci par avance

Foufoudora

[excalibur]

bonjour Foufoudora essai ce code cell a1 nom fichier cell a2 size
Sub List1()
On Error Resume Next
Application.ScreenUpdating = False
Dim Directory As Variant
Dim r As Variant
Dim i As Variant
'Directory = Range("f1").Value
Directory = "d:\"
r = 1
Cells(r, 1) = "FileName"
Cells(r, 2) = "Size"
r = r + 1
On Error Resume Next
With Application.FileSearch
.NewSearch
.LookIn = Directory
'.Filename = "*.*"'tous type de fichiers
.Filename = "*.xls"
.SearchSubFolders = False 'true tous les sous repertoires
.Execute
For i = 1 To .FoundFiles.Count
Cells(r, 1) = .FoundFiles(i)
Cells(r, 2) = FileLen(.FoundFiles(i))
r = r + 1
Next i
End With
End Sub'salutations

[Foufoudora]

Salut excalibur,

Merci beaucoup pour ta réponse qui est très efficace.
Est-ce que je peux récupérer la taille qui est indiqué en K0 de la transformer en Mo
ex : 3346267 = 3.4 Mo

Cordialement

Foufoudora

[fifi]

pour cela c'est pas tres dur suffit de diviser la valeur trouvée par 1024

[Foufoudora]

Salut fifi,

Merci beaucoup pour ta réponse.
en fait j'ai rajouter la ligne
Cells(r, 2) = FileLen(.FoundFiles(i)) /1024000
pour l'avoir en Mo

Merci beaucoup

Cordialement

Foufoudora