Mudface,
Hehe, the only reason You´ve got is that You don´t has any sample of the FSO-approach
Here it come and don´t forget to set a reference to the Microsoft Scripting Runtime via the Tools | Reference.
<PRE>
<FONT color=blue>Sub </FONT>List_Files()
<FONT color=blue>Dim </FONT>fsoObj<FONT color=blue> As</FONT> Scripting.FileSystemObject
<FONT color=blue>Dim </FONT>fsoMapp<FONT color=blue> As</FONT> Scripting.Folder
<FONT color=blue>Dim </FONT>fsoFil<FONT color=blue> As</FONT> Scripting.File
<FONT color=blue>Dim </FONT>i<FONT color=blue> As</FONT><FONT color=blue> Long</FONT>
<FONT color=blue>Set </FONT>fsoObj =<FONT color=blue> New </FONT>Scripting.FileSystemObject
<FONT color=blue>Set </FONT>fsoMapp = fsoObj.GetFolder("e:Arbetsmaterial")
<FONT color=blue>With </FONT>Range("A1:H1")
.Value = Array("Filename", "Created", "Last changed", "Size", "Type", _
"Drive", "Folder", "Path")
.Font.Bold =<FONT color=blue> True</FONT>
<FONT color=blue>End With</FONT>
i = 0
<FONT color=blue>If </FONT>Not fsoMapp Is<FONT color=blue> Nothing</FONT> Then
<FONT color=blue>For </FONT>Each fsoFil In fsoMapp.Files
<FONT color=blue>If </FONT>fsoFil Like "*.xls" Then
i = i + 1
<FONT color=blue>With </FONT>fsoFil
Cells(1 + i, 1).Value = .Name
Cells(1 + i, 2).Value = .DateCreated
Cells(1 + i, 3).Value = .DateLastModified
Cells(1 + i, 4).Value = .Size
Cells(1 + i, 5).Value = .Type
Cells(1 + i, 6).Value = .Drive
Cells(1 + i, 7).Value = .ParentFolder
Cells(1 + i,
.Value = .Path
<FONT color=blue>End With</FONT>
<FONT color=blue>End If</FONT>
Next
<FONT color=blue>End If</FONT>
Columns("A:H").EntireColumn.AutoFit
<FONT color=blue>Set </FONT>fsoFil =<FONT color=blue> Nothing</FONT>
<FONT color=blue>Set </FONT>fsoMapp =<FONT color=blue> Nothing</FONT>
<FONT color=blue>Set </FONT>fsoObj =<FONT color=blue> Nothing</FONT>
<FONT color=blue>End Sub</FONT>
</PRE>
Kind regards,
Dennis