copy filenames to multiple strings

[blackmomba69]

as a part of an ongoing project im trying to take the name from every file in a folder and copy each filename to a seperate string... anyone know how i can go about doing this? ive found some code that takes the number of files in a given folder so i thought i might be able to use "For x = 1 To fldr.Files.Count" but beyond this, i dont know how to make an individual string for each filename nor how to copy the filename to the string... any hwlp is greatly appreciated

[Static]

DIm tmp as string 
Dim Files() as string 
Dim cntr as integer
cntr = 0
tmp = Dir("C:\Path\*.*")
Do while tmp > ""
    redim preserve Files(cntr)
    Files(cntr) = tmp
    tmp = Dir
    cntr = cntr + 1
Loop

now to get them back out
for x = 0 to ubound(Files)
msgbox Files(X)
next

[blackmomba69]

what about folders? how would i get every folder name to a string?

[Static]

change this:
tmp = Dir("C:\Path\*.*")
to
tmp = Dir("C:\Path\*.*",vbDirectory)

and it will have directories to.. (Just check for an extention)

this can also be done with FSO (File System Object)
which will give you more control... (Do a search on FSO or FileSystemObject)

[blackmomba69]

alright, thanks alot

[baja_yu]

If you use FSO, you need to remember that you have to add the refference for scrrun.dll file to your project.