You can use Dir:

Sub getFiles(startDir As String)

file = Dir(startDir & "\*.*")
i = 1

Do While file < ""
Sheets(1).Cells(i, 2) = file
i = i + 1
file = Dir
Loop

End Sub


You can also use the FileSystem object:

Sub getFiles1(startDir As String)

Set fso = CreateObject _
("Scripting.FileSystemObject")
Set folder = fso.GetFolder(startDir)

i = 1

For Each file In folder.Files
Sheets(1).Cells(i, 1) = file.Path
i = i + 1
Next

--
urkec


"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