Files in a directory 2

[Tommyhat]

How would i go about listing files in a set directory?

im trying to use a file system object but im starting to think this won't do the trick.


---------------------------------------
2b||!2b that == the_question

 

[bjd4jc]

Dim fso As Scripting.FileSystemObject
Dim lFolder As Scripting.Folder
Dim lFile As Scripting.File

Set fso = New Scripting.FileSystemObject

Set lFolder = fso.GetFolder("C:\")

For Each lFile In lFolder.Files
    Debug.Print lFile.Name
Next

Or, without FSO

    Dim rslt As String
    
    rslt = Dir("C:\")
    Do
        Debug.Print rslt
        rslt = Dir
    Loop While rslt <> ""

 

[Tommyhat]

Thanks a bunch, bjd4jc!

---------------------------------------
2b||!2b that == the_question

 

[bjd4jc]

you're welcome. thx for the star

 

[trollacious]

Just to be on the safe side, you should check for a string length of 0 before entering the loop. If you don't and there are no files in the directory, the program will error and crash.

Dim rslt As String

rslt = Dir("C:\")
Do While rslt <> ""
Debug.Print rslt
rslt = Dir
Loop

Lee