Dim FichierATester As String, fs As Object, f As Object, i As Byte, attributs() As String
FichierATester = "C:\Doc\Excel\Test.xls"
attributs = Array("Attributes", "DateCreated", "DateLastAccessed", "DateLastModified", "Drive", "Name", "ParentFolder", "Path", "ShortName", "ShortPath", "Size", "type")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(FichierATester)
Cells(1, 2).Value = f.Attributes
Cells(2, 2).Value = f.DateCreated
Cells(3, 2).Value = f.DateLastAccessed
Cells(4, 2).Value = f.DateLastModified
Cells(5, 2).Value = f.Drive
Cells(6, 2).Value = f.Name
Cells(7, 2).Value = f.ParentFolder
Cells(8, 2).Value = f.Path
Cells(9, 2).Value = f.ShortName
Cells(10, 2).Value = f.ShortPath
Cells(11, 2).Value = f.Size
Cells(12, 2).Value = f.Type
For i = 0 To UBound(attributs)
Cells(i + 1, 1).Value = attributs(i)
Next