How do I read file names from a directory

Can anyone help me with this?
I need to read a file name using FileSystemObject in a file directory and pass it to a variable one at a time.
Thanks!

I give u a sample that read a special directory and show the filename in this directory on the messagebox..

sub readdir(dirpath as string)
dim fso as new filesystemobject
dim folder
dim files
dim file

set folder=fso.Getfolder(dirpath)
set files=folder.Files

for each file in files
msgbox file.name
next

set file=nothing
set files=nothing
set folder=nothing
set fso=nothing

end sub

Thanks for your help!

theres no such thing called as filesystemobject!
i tryed it but it wouldnt work

TwProgrammer!When u call filesystem object,u should to add the reference of the MS Script Runtime for your project..

project -> references -> microsoft scripting runtime

that should get you on your way ^^

geez thanks alot!

the files worked fine, but how do i also get folders?

sub getdir(dirpath as string)
dim fso as new filesystemobject
dim folder
dim subfolders
dim subfolder

set folder=fso.Getfolder(dirpath)
set subfolders=folder.subfoldes

for each subfolder in subfolders
msgbox subfolder.name
next

set subfolder=nothing
set subfolders=nothing
set folder=nothing
set fso=nothing

end sub

If u will learn more kownledge,plz visit http://msdn.microsoft.com/library/d...ystemobject.asp