<form id="form1" name="form1" method="get" action="xiugai.asp">
请输入文件夹路径:
<input name="SourceFolder" type="text" id="SourceFolder" />
修改为的后缀名:
<input name="FileH" type="text" id="FileH" size="6" />
<label>
<input type="submit" name="Submit" value=" 修 改 " />
</label>
<input name="Action" type="hidden" id="Action" value="xiugai" />
</form>
<%
dim Action,SourceFolder,FileH
Action=Request.QueryString("Action")
FileH=Request.QueryString("FileH")
SourceFolder=Request.QueryString("SourceFolder")
if Action="xiugai" then
if SourceFolder="" or FileH="" then
Response.Write "<script>alert('源文件目录或后缀名没有填写');</script>"
Response.End()
else
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set Folder=fso.GetFolder(Server.MapPath(SourceFolder))
For Each Item In Folder.Files
Set f = fso.GetFile(Item)
dim FileName,TrueFileName
FileName=mid(Item,InStrRev(Item, "/")+1)'============获取整个文件名
TrueFileName=Left(FileName,InStrRev(FileName, ".")-1)'============获取文件名
fso.MoveFile item,Server.MapPath(SourceFolder)&"/"&TrueFileName&"."&FileH
Next
Response.Write "<script>alert('修改完毕');</script>"
Response.End()
end if
end if
%>