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

```
```
sFilename = Dir(sFoldername)

Do While sFilename > ""

  debug.print sFilename 
  sFilename = Dir()

Loop
```
```