'I want to list the file names but not
'sure how to call them

myFolder = "a:\image viewer\images"
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FSO = FSO.GetFolder(myFolder)

iLen = FSO.Files.Count

ReDim iArray(iLen)
For iCount = 1 To iLen

iArray(iCount) = 'how do I get the file name here

List1.AddItem iArray(iCount)
Next