You could create an array of the names with

oShell = CREATEOBJECT("Shell.Application")
oFld = oShell.NameSpace("C:\temp\test.zip")
oIts = oFld.Items
t = 0
FOR EACH oFile IN oIts
	t = t + 1
	DIMENSION arrFNames(t)
	arrFNames(t) = oFile.Name
ENDFOR

and use this as the control source for the listbox