<%
Dim strFolderLocation
strFolderLocation = Server.MapPath("tutorial")
displayFolderInfo(strFolderLocation)

' Procedure to display information about a folder
Private Sub displayFolderInfo(ByVal strFolderName)
    Dim objFSO, objFolderSpec, strInfo
    Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
    Set objFolderSpec = objFSO.GetFolder(strFolderName)
    strInfo = "<h2>" & objFolderSpec.Name & "</h2>"
    strInfo = strInfo & "<p>Created: "
    strInfo = strInfo & objFolderSpec.DateCreated & "</p>"
    strInfo = strInfo & "<p>Size: "
    strInfo = strInfo & objFolderSpec.Size & "</p>"
    Response.Write strInfo
    Set objFolderSpec = Nothing
    Set objFSO = Nothing
End Sub
%>