如何用FSO给一个文件改名？
好像FSO本身不支持改名，只有一个MOVE.
谁能给出一个现成的函数，谢谢
问题点数：20、回复次数：4Top
1 楼lienzhu（李强）回复于 2004-12-02 18:06:39 得分 20
用 fso.movefile oldFile,newFile
例子：
<%
function modFile(path,oldFile,newFile)
on error resume next
Set fso = CreateObject("Scripting.FileSystemObject")
oldFile=path & oldFile
newFile=path & newFile
if fso.FileExists(oldFile)=false then
modFile="文件（"& oldFile &"）不存在！"
elseif fso.FileExists(newFile) then
modFile="文件（"& newFile &"）已经存在，改名失败！"
else
fso.movefile oldFile,newFile
modFile="修改完毕！"
end if
Set fso =nothing
end function
response.write modFile("d:\","d.asp","d1.asp")
%>
Top
2 楼comszsoft（星星点灯）回复于 2004-12-02 18:15:10 得分 0
收藏Top
3 楼nik_Amis（...）回复于 2004-12-02 18:20:26 得分 0
好像Folder不行啊？Top
4 楼lienzhu（李强）回复于 2004-12-02 19:08:13 得分 0
<%
Set fso = CreateObject("Scripting.FileSystemObject")
fso.moveFolder "d:\test1" ,"d:\test2"
Set fso =nothing
%>
注意最后别加\Top
