ASP代码之文件夹重命名

最新推荐文章于 2023-03-02 16:10:53 发布

相思比梦长

最新推荐文章于 2023-03-02 16:10:53 发布

阅读量1.1k

点赞数 1

分类专栏： ASP 文章标签： asp 文件夹重命名

本文链接：https://blog.csdn.net/netuser1937/article/details/53738431

版权

ASP 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

 <%
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
%>