利用FILESTSTEMOBJECT 复制文件到指定文件夹？？怎么做

[p3122143]

如题，求代码，简单实用

[iasky]

http://www.mysheji.com/blog/article.asp?id=410

FSO复制文件

方法：CopyFile

调用格式：

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

注意事项：

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

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

<%
'====================================================
'源码：FSO复制文件示例
'时间：2005年12月17日
'====================================================
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
%>

[p3122143]

大哥，写的很好，只是是把指定文件复制到指定文件夹下

[TSD]

filecopy 源文件,目标地址

[xiaoke0518]

filepath=server.MapPath("upfile/004.doc")
upfilepath=server.MapPath("ziyuan/11")
set objFso = server.CreateObject("Scripting.FileSystemObject")
if (objFso.FileExists(upfilepath)) then
objFso.MoveFILE filepath,upfilepath
else
if not objFso.FolderExists(upfilepath) then
objFso.CreateFolder(upfilepath)
end if
objFso.MoveFILE filepath,upfilepath
end if