Para poder visualizar los archivos que contiene un directorio prueba con esto:
Código:
<%
StrCarpeta = server.mappath("/images")
Dim oFolders
Set oFolders = Server.CreateObject("Scripting.FileSystemObject")
Response.Write ("<SELECT name='txtArchivos'>")
Response.Write ("<OPTION value=''>Seleccione Archivo</OPTION'>")
For Each Item In oFolders.GetFolder(StrCarpeta).Files
item = Replace(lcase(Item), lcase(StrCarpeta), "")
item = Replace(Item, "\", "")
Response.Write ("<OPTION value='" & item &"'>" & item & "</OPTION'>")
Next
Response.Write ("</SELECT>")
Set oFolders = Nothing
%>