FSO文本文件操作,读取一个文件相关信息$

最新推荐文章于 2014-01-05 16:01:48 发布

sontin

最新推荐文章于 2014-01-05 16:01:48 发布

阅读量1k

点赞数

分类专栏： ASP

本文链接：https://blog.csdn.net/sontin/article/details/9943205

版权

ASP 专栏收录该内容

12 篇文章 0 订阅

订阅专栏

FSO读取一个文件相关信息的范例

<%    
   Dim  objFSO,objFile        ’声明一个名称为  objFSO  的变量以存放对象实例    
   Set  objFSO  =  Server.CreateObject("Scripting.FileSystemObject")    
     If  objFSO.FileExists(Server.MapPath("newfile.asp"))  Then    
         Set  objFile  =  objFSO.GetFile(Server.MapPath("newfile.asp"))    
         Response.Write  "文件的名称："&objFile.Name&"<br>"    
         Response.Write  "文件的路径："&objFile.Path&"<br>"    
         Response.Write  "文件的建立日期："&objFile.DateCreated&"<br>"    
         Response.Write  "文件的最后浏览日期："&objFile.DateLastAccessed&"<br>"    
         Response.Write  "文件的最后修改日期："&objFile.DateLastModified&"<br>"    
         Response.Write  "文件的大小："&objFile.Size&"<br>"    
         Response.Write  "文件的类型："&objFile.Type&"<br>"    
     Else    
         Response.Write  Server.MapPath("newfile.asp")&"不存在，无法读取相关信息"    
     End  If    
   Set  objFile  =  Nothing    
   Set  objFSO  =  Nothing            ’释放  FileSystemObject  对象实例内存空间    
%>

<HTML>
<HEAD>
<TITLE>
My FileSystemObject Sample Page
</TITLE>
</HEAD>
<BODY>

<%

'Constants for Script parameters
dim ForReading = 1
dim ForWriting = 2
dim ForAppending = 8

' Newline var consists of HTML <BR> tag plus a JScript newline.
dim NewLine = "<BR>\n"

' (1)Create a FileSystemObject.
dim fso, ts
set fso = Server.CreateObject("Scripting.FileSystemObject")

'(2)Create a new TextStream object using FSO, and write to it.
'This results in a new file.

set ts = fso.CreateTextFile("c:\fileshare\test.txt",true)
ts.WriteLine("Hello World!")
ts.WriteBlankLines(1)
ts.WriteLine("This is my first FileSystemObject application.")
ts.Close

' (3)Access an existing file and its attributes--Name, Path, and DateLastModified.

set ts = fso.GetFile("c:\fileshare\test.txt")
Response.Write("Your file's name is: " + ts.Name + NewLine)
Response.Write("Your file's path is: " + ts.Path + NewLine)
Response.Write("File last changed: " + ts.DateLastModified)

'(4)Open the file and read data from it. Notice that when you call
'OpenTextFile, you set the overwrite parameter to "false," so you 
'use the existing file instead of creating a new one.

strFil = NewLine + ""
set ts = fso.OpenTextFile("c:\fileshare\test.txt",ForReading,false)

' (5)Loop through lines in the file, read them into strFil variable.

while not ts.AtEndOfStream
   strFil = strFil  & ts.ReadLine + NewLine
wend

'Write the variable containing the file contents into the page.
Response.Write(NewLine + strFil)
ts.Close

set fso=nothing
%>

</BODY>
</HTML>