File System Object

Method: Get File

Set objFile = ObjFSO.GetFile(strPhysicalPath)

strPhysicalPath is the actual directory and file name on the server. For example "D:\WebSites\index.htm". It can be derived from Server.MapPath(strURLPath) where strURLPath might be "http://www.mipsdla.com/index.htm"

Properties:

objFile.Name 'and extension
objFile.Size 'in bytes
objFile.DateLastModified
objFile.DateCreated
objFile.DateLastAccessed
objFile.Drive
objFile.ParentFolder
objFile.Path 'This is the entire path and file name with extension
objFile.ShortName
objFile.ShortPath
objFile.Type 'A text description of the file type. Not the extension

Methods:

objFile.OpenAsTextStream([iomode, [format]])
where iomode is 1=read, 2=write, 8=append and format is -2=default, -1=unicode, 0=ASCII
objFile.Delete( force );
where force is an optional value which, if true, will remove files with the read-only attribute set.
objFile.Copy( destination[, overwrite] );
where destination is the fully qualified drive, path and (optionally?) file name to copy this file to. overwrite is optional and, if true, will cause any existing file to be overwritten.
objFile.Move( destination );
where destination is the fully qualified drive, path and (optionally?) file name to move this file to.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN"

<HTML>
<HEAD>
<TITLE>Chapter 11 Example - Display Directory</TITLE>
</HEAD>
<BODY>
<%
Dim strPathInfo, strPhysicalPath
Dim objFSO, objFile, objFileItem, objFolder, objFolderContent8

strPhysicalPath = request.querystring("path")

Set objFSO = CreateObject("Scripting.FileSystemObject")

if strPhysicalPath = Empty then
	strPathInfo = Resuest.ServerVariables("PATH_INFO")
	'note: this path includes the file name of this page.
	strPhysicalPath = Server.MapPath(strPathInfo)
	Set objFile = objFSO.GetFile(strPhysicalPath)
	Set objFolder = objFile.ParentFolder
else
	set objFolder = objFSO.GetFolder(strPhysicalPath)
	end if

Set objFolderContents = objFolder.Files
%>
<TABLE cellpadding=5>
<TR align=center><TH align=left>File Name</TH><TH>File Size</TH><TH>Last
Modified</TH></TR>

<%
For Each objFileItem in objFolderContents
Response.Write "<TR><TD align=left>"
Response.Write objFileItem.Name
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.Size
Response.Write "</TD><TD align=right>"
Response.Write objFileItem.DateLastModified
Response.Write "</TD></TR>"
Next
%>
</TABLE>

<BODY>
</HTML>