asp | 웹 소스 폴더별 파일 리스트 출력 소스
페이지 정보
작성자 100K5 작성일18-01-05 11:24 조회31,677회 댓글0건관련링크
본문
<%
' 방식 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
%>
댓글목록
등록된 댓글이 없습니다.