Code:
dim MyFSO as new FileSystemObject
dim MyFolder as folder
dim MyFile as file

set myfolder = MyFSO.GetFolder("C:\Windows\Cookies")
for each myfile in myfolder
   list1.additem myfile.filename
next myfile
Does this work? (you will need to add a reference to the Microsoft Scripting Runtime DLL to your project, SCRRUN.DLL)

Let me know if this is OK