好东西分享

<%

Name1="原文件名"
Name2="目标文件名"

if Name1<>"" and Name2<>"" then

Sub RenameFolder(ByVal strFolderPath, ByVal strNewName)

Dim objFileSystem
Set objFileSystem=Server.CreateObject("Scripting.FileSystemObject")

' 如果路径不包含冒号, 则认为 strFolderPath 是虚拟路径.
' 故调用 Server.MapPath() 方法将此路径转为绝对路径
If Instr(1,strFolderPath,":")=-1 Then
strFolderPath=Server.MapPath(strFolderPath)
End If

Dim objFolder
Set objFolder=objFileSystem.GetFolder(strFolderPath)
objFolder.Name=strNewName

Set objFolder=nothing
Set objFileSystem=nothing

End Sub

RenameFolder Server.MapPath(Name1),Name2
response.write "已经成功地把 "+Name1+" 更名为 "+Name2+" ！"

end if

%>