<script language=vbscript runat=server>
Server.ScriptTimeOut = 9999
Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function
Server.ScriptTimeOut = 9999
Function reName(sourceName,destName)
dim oFso,oFile
set oFso = Server.CreateObject("Scripting.FileSystemObject")
set oFile = oFso.getFile(Server.mappath(sourceName))
oFile.Name = destName
Set oFso = Nothing
Set oFile = Nothing
End Function
</script>
本文介绍了一段VBScript代码,该代码用于实现文件的重命名操作。通过创建Scripting.FileSystemObject对象,可以获取并更改服务器上的文件名。

1449

被折叠的 条评论
为什么被折叠?



