How do I get list of all filenames in a directory using VB6?

Question

What is the simplest way in VB6 to loop through all the files in a specified folder directory and get their names?

Answer 1

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop

Answer 2

DJ's solution is simple and effective, just throwing out another one in case you need a little more functionality that the FileSystemObject can provide (requires a reference to the Microsoft Scripting Runtime).

Dim fso As New FileSystemObject
Dim fol As Folder
Dim i As Integer

Set fol = fso.GetFolder("C:\")
For i = 0 To fol.Files.Count
    Debug.Print fol.Files(i).Name
Next i