dim arry()
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
i=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
count=fc.count
ReDim Preserve arry(count)
For Each f1 in fc
arry(i)= f1.name
i=i+1
Next
ShowFolderList = s
End Function
ShowFolderList("c:\")
response.write arry(1)
%>