I have some code below which extracts the file names from a zip file and list them in a list box. Well that is what it is supposed to do!!! Can anybody help as to why this is not working?

Many Thanks

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

with thisform.list1
 .RowSourcetype = 5
 .Rowsource = 'arrFNames(t)'
 .ColumnCount = 1  
endwith