Costis,

You can use Dir function, here is the codes:

Sub DirFiles()
Dim MyDir, i As Integer
MyDir = Dir("C:\*.*")
While MyDir < ""
i = i + 1
Cells(i, "A") = MyDir
MyDir = Dir
Wend
End Sub

That represent filename only, unless you want to retrieve all the data of
files you have to use FileSystemObject Scripting metode

--

Regards,

Halim


"Costis" wrote:

Hello,

i would like to create a representation of the existing files per directory,
so that i can follow up the files i am keeping in the various data
directories i have (not the system).
I Know this information already exists in the system, and it is utilized by
Windows Explorer but i do not know how to access it and import it in Excell
or Access.

Any Help?
Thanks in advance