FSO使用教程3 -- FSO移动文件，重命名文件
日期：2011-12-23 浏览次数：21040 次
如何使用FSO移动文件，重命名文件-FSO使用教程3
从本篇开始，我们开始详细的讲解FSO的各大功能，让你系统性的对FSO有一个全面的了解，包括如何使用FSO复制文件，如何使用FSO删除文件，如何使用FSO移动文件，如何使用FSO重命名文件，如何使用FSO打开文件，如何使用FSO建立文件，如何使用FSO读取文件，如何使用FSO写入文件，如何使用FSO判断文件是否存在等等。
三、FSO移动文件，重命名文件
方法：MoveFile
调用格式：
FileSystemObject名.MoveFile 源文件, 目的文件
注意事项：
- 源文件：必须是已存在的文件，否则会产生“找不到源文件”的错误(错误编码：53)
- 目的文件：(1)目的文件必须是不存在的文件，否则会产生“文件已存在”的错误（错误编号=58）；（2）若目的文件的所在目录与源文件的的所在目录相同，则MoveFile的功能是变更文件名称；若目的文件的所在目录与源文件的所在目录不同，则MoveFile的功能是移动文件。
源码实例：
- 将与ASP文件同目录下的File1.txt更名为NewFile1.txt。
程序如下：(MoveFile.asp)
<%
'==================================================
'作者：爱易学习网
'网址：http://www.aiyiweb.com/
'源码：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
%>
'==================================================
'作者：爱易学习网
'网址：http://www.aiyiweb.com/
'源码：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
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
