Try this:


Dim strExistingFile As String
strExistingFile = Dir(gstrProcessAreaDirectory & "*.*")
Do Until strExistingFile = ""
List1.Additem strExistingFile
strExistingFile = Dir()
Loop