import filenames

  • Thread starter Thread starter driller
  • Start date Start date
D

driller

I have a hell of work updating the list of filenames located in one folder.
The folder contains different file name ext.
The files stored in this folder increased every week.

Can I do importing the filenames and filedates to excel ?How?

thanks in advance
 
Use this macro

Sub getdates()
Folder = "C:\temp"
Set fso = CreateObject _
("Scripting.FileSystemObject")

Set Folder = _
fso.GetFolder(Folder)

RowNumber = 1
'folder size in bytes
On Error GoTo 200
For Each fl In Folder.Files
Sheets(1).Cells(RowNumber, "C") = fl.DateLastModified
Sheets(1).Cells(RowNumber, "B") = fl.Size
Sheets(1).Cells(RowNumber, "A") = strFolder & fl.Name
RowNumber = RowNumber + 1
Next fl

200 On Error GoTo 0


End Sub
 
Back
Top