asp 在线重命名文件名 代码

来源:百度知道 编辑:UC知道 时间:2024/07/03 03:52:16
<%
Set fs = Server.CreateObject("Scripting.FileSystemObject")
SFile = Server.MapPath("&xg1&")
NFile = Server.MapPath("&xg2&")
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
%>
<form id="form1" name="form1" method="post" action="asp.asp" onSubmit="return chksubmit();">
<p>
<input name="xg1" type="text" id="xg1" />
</p>
<p>
<input name="xg2" type="text" id=&

================================================
'函数名:fileRename
'作 用:重命名文件
'参 数:soureFile ----原文件名
' newFile ----目标文件名
'================================================
Function fileRename(ByVal soureFile,ByVal newFile)
dim fso,oFile
set fso=server.createobject("Scripting.FileSystemObject")
set oFile=fso.getFile(soureFile)
oFile.Name=newFile
Set fso=Nothing
Set oFile=Nothing
End Function