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>

file: /Techref/language/asp/VBS/VBSCRIPT/fsoGetFile.htm, 3KB, , updated: 2013/7/22 12:51, local time: 2024/12/19 01:21,

^{18.226.181.124:LOG IN}

©2024 These pages are served without commercial sponsorship. (No popup ads, etc...).Bandwidth abuse increases hosting cost forcing sponsorship or shutdown. This server aggressively defends against automated copying for any reason including offline viewing, duplication, etc... Please respect this requirement and DO NOT RIP THIS SITE. Questions?

Please DO link to this page! Digg it! / MAKE!

<A HREF="http://massmind.org/techref/language/asp/VBS/VBSCRIPT/fsoGetFile.htm"> File System Object GetFile Method</A>

Did you find what you needed?

Welcome to massmind.org!

Quick, Easy and CHEAP! RCL-1 RS232 Level Converter in a DB9 backshell
Ashley Roll has put together a really nice little unit here. Leave off the MAX232 and keep these handy for the few times you need true RS232!