Searching for creation date of files

[Sven Seiferth]

Hi,


I want to program a script, thats searching for all files, created in
a certain time range. For exapmle all files, created in year 2003.
It should search in a certain folder and all subfolders.
Afterwards, the script has to add up the size of all located files and
write it in a excel cell.
Sadly I don´t have a clue in vba.

Thanx for Your help,


Sven

 

[Helmut Weber]

Hi Sven,
i am hoping, you are'nt exspecting a ready
to use solution. Have a look at this as a start:

Dim oFsy As Object
Dim oFil As Object
Set oFsy = CreateObject("Scripting.FileSystemObject")
Set oFil = oFsy.getfile("c:\test\test.doc")
MsgBox oFil.Size
MsgBox oFil.datecreated

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000