<title>Document Title</title> </head> <body> <% dim fs dim fi dim dir1 dim filename1 dim content
dim attributes
dim datecreated dim datelastaccessed dim datelastmodified dim drive dim name dim parentfolder dim path dim shortname dim shortpath dim size dim type1
dim fDateCreated dim fDateLastAccessed dim fDateLastModified dim fDrive dim fFiles dim fIsRootFolder dim fName dim fParentFolder dim fPath dim fShortName dim fShortPath dim fSize dim fSubFolders dim newline newline =chr(13) content= "FOLDER PROPERTIES ARE : " +newline
set fs =server.CreateObject("Scripting.FileSystemObject") tempvar = cstr(fs.GetFile(server.mappath("default.html")).parentfolder ) if instr("/",tempvar)<>0 then dir1 =tempvar +"/" else dir1 =tempvar +"\" end if
if not isempty(request.form("dir")) then dir1 =request.form("dir") 'set fs =server.CreateObject("Scripting.FileSystemObject")