<%
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder("c:\WINNT")
Response.Write "作成日時：" & objFolder.DateCreated & "<br>"
Response.Write "更新日時：" & objFolder.DateLastModified & "<br>"
Response.Write "サイズ：" & objFolder.Size & "<br>"
Response.Write "タイプ：" & objFolder.Type & "<br>"
Response.Write "属性：" & objFolder.Attributes & "<br>"
Set objFile = Nothing
Set objFso = Nothing
%>
|
フォルダ情報を表示する