File System Object GetFile Method

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/11/5 08:41,

^{3.147.80.121: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://linistepper.com/Techref/language/asp/vbs/vbscript/fsoGetFile.htm"> File System Object GetFile Method</A>