<%@ Language=VBScript %>
<% Response.Buffer=false %>
Using File System Objects, Drive, Folder, and File Objects
Test File System Object
'<%
'dim objFileSystemObject, objFile, ObjFolder, objDrive
'Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")
'Get a drive off your data disk
'Set objDrive = objFileSystemObject.GetDrive("h:")
'%>
'<%
path
Size
Parent folder
Name
f/d
'%>
'<% For each objFolder in objDrive.rootfolder.subfolders %>
'
'
<% =objFolder.Path %>
'
<% =objFolder.Size %>
'
<% =objFolder.ParentFolder %>
'
<% =objFolder.name %>
'
d
'
'<% Next %>
'<% for each objFile in objDrive.rootfolder.files %>
'