蓝派网(www.lan27.com)-精选网络资源,分享和交流! 文章首页站内搜索在线手册广告代码酷站欣赏万年历
您现在的位置: 蓝派网 >> 文章中心 >> 网络编程 >> ASP >> 正文

FSO (FileSystemObject) 文件系统对象 用法

作者:佚名    文章来源:网络    更新时间:2008-10-2 14:25:51

一、如何使用FSO复制文件
方法:CopyFile

调用格式:

FileSystemObject名.CopyFile 源文件, 目的文件

注意事项:

源文件:必须是已存在的文件,否则会产生“找不到源文件”的错误(错误编码:53)
目的文件:如果目的文件已存在,则将覆盖。若文件属性为“只读”或“被锁定”,则会产生“没有使用权限”的错误(错误编码:70)
源码实例:

将与ASP文件同目录下的File1.txt复制为File2.txt。
程序如下:(CopyFile.asp)


 程序代码
<%
'====================================================
'源码:FSO复制文件示例
'时间:2005年12月17日
'FLYSO Blog
'====================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("File1.txt")
TFile = Server.MapPath("File2.txt")
on Error Resume Next
fs.CopyFile SFile, TFile
If Err.Number = 53 Then
Response.Write SFile & "文件不存在!"
Response.End
Elseif Err.Number = 70 Then
Response.Write TFile & "文件属性为只读!"
Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误,错误编码:" & Err.Number
Response.End
Else
Response.Write "成功复制文件!" & TFile
End If
%>


二、如何使用FSO删除文件
方法:DeleteFile

调用格式:

FileSystemObject名.DeleteFile 被删除的文件 [, 是否强制删除]

注意事项:

被删除的文件:必须是已存在的文件,否则会产生“找不到源文件”的错误(错误编码:53)
是否强制删除:若文件属性为“只读”,必须将这个参数设置为True,方可删除,否则则会产生“没有使用权限”的错误(错误编码:70);对于“被锁定”的文件,则不管如何,都会产生“没有使用权限”的错误。
源码实例:

删除与ASP文件同目录下的File1.txt。
程序如下:(DeleteFile.asp)


 程序代码
<%
'===================================================

'源码:FSO删除文件示例
'时间:2005年12月17日
'===================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")
on Error Resume Next
fs.DeleteFile File, True '强制删除只读文件
If Err.Number = 53 Then
Response.Write File & "文件不存在!"
Response.End
Elseif Err.Number = 70 Then
Response.Write File & "文件属性为锁定状态!"
Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误,错误编码:" & Err.Number
Response.End
Else
Response.Write "成功删除文件!" & File
End If
%>


三、如何使用FSO移动文件,重命名文件
方法:MoveFile

调用格式:

FileSystemObject名.MoveFile 源文件, 目的文件

注意事项:

源文件:必须是已存在的文件,否则会产生“找不到源文件”的错误(错误编码:53)
目的文件:(1)目的文件必须是不存在的文件,否则会产生“文件已存在”的错误(错误编号=58);(2)若目的文件的所在目录与源文件的的所在目录相同,则MoveFile的功能是变更文件名称;若目的文件的所在目录与源文件的所在目录不同,则MoveFile的功能是移动文件。
源码实例:

将与ASP文件同目录下的File1.txt更名为NewFile1.txt。
程序如下:(MoveFile.asp)

 程序代码
<%
'==================================================
'源码:FSO移动文件,重命名文件示例
'时间:2005年12月17日
'==================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("File1.txt")
NFile = Server.MapPath("NewFile1.txt")
on Error Resume Next
fs.MoveFile SFile, NFile
If Err.Number = 53 Then
Response.Write File & "文件不存在!"
Response.End
Elseif Err.Number = 58 Then
Response.Write File & "文件已存在!"
Response.End
Elseif Err.Number <> 0 Then
Response.Write "未知错误,错误编码:" & Err.Number
Response.End
Else
Response.Write "成功重命名文件!" & SFile &"为" &NFile& ""
End If
%>


四、如何使用FSO打开文件
文件存取所必须用到的TextStream对象是FileSystemObject的子对象。其建立的方法有OpenTextFile及CreateTextFile两种,使用实例如下:

'首先建立FileSystemObject对象
Set fs = Server.CreateObject("Scripting.FileSystemObject")
'再建立一个TextStream类型对象
Set txt = fs.OpenTextFile(参数...)
或者:

Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set txt = fs.CreateTextFile(参数...)
我们在建立了TextStream对象之后,接下来我们可以调用附属于TextStream对象的ReadLine、WriteLine、Read、ReadAll、Write...等方法来存取文件的内容。

如何用FSO打开文件:

方法:OpenTextFile

调用格式:

OpenTextFile(文件[, 打开模式][, 是否自动创建文件])
注意事项:(后两个参数可省略)

打开模式:可以有三种设置值:
设置值  意义
1  打开成只读的文件
2  打开成只写的文件,原文件内容会先被清除
8  打开成只写的文件,并保留原文件内容,而数据会从文件的最后面写入

如果文件被打开“只读”文件,接下来我们只能调用TextStream对象的ReadLine、Read及ReadAll方法来读取文件的内容;如果文件打开为“只写”文件,则只能调用WriteLine及Write方法来写入数据到文件中。省略状态下表示将文件打开为“只读”文件。

是否自动创建文件:
可以设轩成True或False,若设置成True,则打开文件时不存在就自动创建新文件并打开;如果设置成False时,则打开的文件必须为已存在文件,否则会产生“找不到文件”的错误(错误编码=53)。省略状态下表示打开的文件必须为已存在文件。

源码示例:


 程序代码
<%
'================================================
'源码:FSO移动文件,重命名文件示例
'时间:2005年12月17日
'================================================
Set fs = Server.CreateObject("Scripting.FileSystemObject")
File = Server.MapPath("File1.txt")

'将File1.txt打开成只读文件,File1.txt必须是只已存在的文件
Set txt = fs.OpenTextFile(File) '参数二三均可省略

'将File.txt打开成只读文件,File1.txt若不存在,则先创建文件
Set txt = fs.OpenTextFile(File,1,True)

'将File.txt打开成只写文件,File1.txt若不存在,则先创建文件
Set txt = fs.OpenTextFile(File,2,True)

'将File.txt打开成只写文件,File1.txt必须是已存在的文件
Set txt = fs.OpenTextFile(File,8)
%>

[1] [2] 下一页


发表评论】【打印此文】【关闭窗口】【点击数:
★好玩的休闲小游戏★