디렉토리 목록 출력 fs.GetFolder

<%

    Set fs = Server.CreateObject("Scripting.FileSystemObject")

    Set folderObj = fs.GetFolder(Server.MapPath("."))

    Set files = folderObj.Files 

%>

<html>

 <head>

  <title> 파일 리스트  </title>

 </head>


 <body>

    <h2><%'=Server.MapPath(".")%>디렉토리 목록</h2>

    <table border="1" width="900" style="font-size:9pt;" cellpadding="2">

        <tr>

            <th>이름</th>

            <th>크기</th>

            <th>형식</th>

            <th>생성 시각</th>

            <th>마지막 엑세스 시간</th>

            <th>마지막 수정 시간</th>

        </tr>

  <%

    For Each file in files

  %>

      <tr>

            <td><a href="<%=file.name%>"><%=file.name%></a></td>

            <td><%=file.size%> byte</td>

            <td><%=file.type%></td>

            <td><%=file.DateCreated%></td>

            <td><%=file.DateLastAccessed%></td>

            <td><%=file.DateLastModified%></td>

      </tr>

  <%

   Next

  %>

  </table>

 </body>

</html>

저작자 표시 동일 조건 변경 허락
신고