<%
' 방식 1

' 파일 객체 인스턴스 생성
set fso = Server.CreateObject("Scripting.FileSystemObject")

' 경로 설정
set folders = fso.GetFolder(Request.ServerVariables("APPL_PHYSICAL_PATH") & "폴더명" )

' 해당 폴더가 있다면

If fso.FolderExists(folders) Then
 ' 객체를 가져온다.
 set sfolders = folders.files  ' 디렉토리를 불러올 경우(files -> subFolders) 변경
 
 For each i in sfolders
  Response.write i.Name& "<br />"
 Next
 
 set sfolders  = nothing
 set folders  = nothing
 set fso   = nothing
Else
 Response.write "해당 폴더가 없습니다.<br />"  
End If
%>

<%
' 방식 2 
strFolderName = "폴더명"  ' (파일 수량이 많을 경우 www 를 직접 등록하면 버퍼링 오류 예상 됨)

strPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & strFolderName

Call GetFolderList(strPath)  '호출!!

Sub GetFolderList(strPath)

 Dim FSO, Folder, Sub_folder

 Set FSO = Server.CreateObject( "Scripting.FileSystemObject" )
 Set Folder = FSO.GetFolder(strPath)
 Set Sub_folder = Folder.Subfolders

 FOR EACH folder In Sub_folder

  IF folder.Name <> "" THEN
   GetFolderList(strPath&"\"&folder.Name)   '시작 경로에서 하위 폴더를 붙이면서 검색한다.
   Response.Write "<hr><font color=blue>"
   ' Response.Write strPath & "\" & folder.name & "\<br>"  '폴더명을 출력한다.
   Response.Write "/"& strFolderName & "/" & folder.name & "/<br>"  '폴더명을 출력한다.
   Response.Write "</font>"   
   Call GetFileList(strPath & "\" & folder.name) ' 하위 폴더에 있는 파일을 검색한다.   

  END IF  
 Next

 Set Sub_folder = Nothing
 Set Folder = Nothing
 Set FSO = Nothing ' 개채를 비운다. 

 End Sub

 Sub GetFileList(strPath)
 Dim FSO, Folder, Files, FilePath
 Set FSO  = Server.CreateObject( "Scripting.FileSystemObject" )
 Set Folder = FSO.GetFolder(strPath)  '하위 폴더명을 붙이면서 Folder개채를 생성한다.
 Set Files  = Folder.Files  'Folder개채로 File개채를 생성한다.
 
 For Each file In Files 
  ' FilePath = strPath&"\"&File.Name
  FilePath = File.Name
  Response.write FilePath & "<br>"  'File개채들을 출력한다.
 Next
 
 Set Files = Nothing
 Set Folder = Nothing
 Set FSO = Nothing

 End Sub
%>