<p>FSO使用教程1 -- FSO复制文件</p>
<p>如何使用FSO复制文件-FSO使用教程1<br />
从本篇开始，我们开始详细的讲解FSO的各大功能，让你系统性的对FSO有一个全面的了解，包括如何使用FSO复制文件，如何使用FSO删除文件，如何使用FSO移动文件，如何使用FSO重命名文件，如何使用FSO打开文件，如何使用FSO建立文件，如何使用FSO读取文件，如何使用FSO写入文件，如何使用FSO判断文件是否存在等等。以下先从如何使用FSO复制文件讲起：<br />
一、FSO复制文件<br />
方法：CopyFile<br />
调用格式：<br />
FileSystemObject名.CopyFile 源文件, 目的文件<br />
注意事项：<br />
源文件：必须是已存在的文件，否则会产生“找不到源文件”的错误(错误编码：53)<br />
目的文件：如果目的文件已存在，则将覆盖。若文件属性为“只读”或“被锁定”，则会产生“没有使用权限”的错误（错误编码：70）<br />
源码实例：<br />
将与ASP文件同目录下的File1.txt复制为File2.txt。<br />
程序如下：(CopyFile.asp)<br />
<%<br />
'====================================================<br />
'作者：阿里西西<br />
'网址：<a href="http://www.alixixi.com/">http://www.alixixi.com/</a><br />
'源码：FSO复制文件示例<br />
'时间：2005年12月17日<br />
'====================================================<br />
Set fs = Server.CreateObject("Scripting.FileSystemObject")<br />
SFile = Server.MapPath("File1.txt")<br />
TFile = Server.MapPath("File2.txt")<br />
on Error Resume Next<br />
fs.CopyFile SFile, TFile<br />
If Err.Number = 53 Then<br />
Response.Write SFile & "文件不存在！"<br />
Response.End<br />
Elseif Err.Number = 70 Then<br />
Response.Write TFile & "文件属性为只读！"<br />
Response.End<br />
Elseif Err.Number <> 0 Then<br />
Response.Write "未知错误，错误编码：" & Err.Number<br />
Response.End<br />
Else<br />
Response.Write "成功复制文件！" & TFile<br />
End If<br />
%></p>