asp 폴더 내 파일 목록 보기

<!-- metadata type="typelib" file="c:\program files\common files\system\ado\msado15.dll"-->

<%

option explicit

dim rs, fso, file_path, objfolder, files, file,chk

set rs = server.createobject("adodb.recordset")

rs.cursorlocation = aduseclient

rs.fields.append "file_name", advarchar, 50

rs.cursortype = adopenstatic

rs.locktype = adlockbatchoptimistic

rs.open

set fso = createobject("scripting.filesystemobject")

file_path = server.mappath(".") & "\call"

set objfolder = fso.getfolder(file_path)

set files = objfolder.files

response.write "현재폴더" & objfolder&"<br>"

for each file in files

rs.addnew

rs("file_name") = file.name

'rs.update

next

rs.sort = "file_name asc"

do while not rs.eof

chk=rs("file_name")

response.write rs("file_name")&"<br>"

rs.movenext

loop

rs.close

set rs = Nothing

response.write chk

%>