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

sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename
  sFilename = Dir()

Loop

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