ASP批量修改文件名的问题

yjs901 2010-07-15 09:36:48
<%
Dim fso:Set fso=Server.CreateObject("Scripting.FileSystemObject")
Dim files:Set files=fso.GetFolder(Server.MapPath("dll")).files
Dim fileName,Ext,NewFileName,TempArr
For Each f In files
TempArr=split(f.name,".")
Ext=TempArr(1)
fileName=TempArr(0)
NewFileName="三分之二"&"-"&fileName&"."&Ext
f.name=NewFileName
Next
Set files=Nothing
Set fso=Nothing
Response.Write "操作完成"
%>

现在情况是这样,执行过后所有文件前面增加了三次“三分之二”和“-”,这是为什么呢?
...全文
95 点赞 收藏 7
写回复
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
yjs901 2010-07-15
不可能哦,我只刷新了一次。
回复
lionz1023 2010-07-15
测试了下,没有问题,能够正常命名,你不会刷新了三次吧,刷一次加一个。
回复
yjs901 2010-07-15
一个文件也是重复命名三次的,2、3、4、5个文件都是重复命名三次
回复
lionz1023 2010-07-15
是不是里面一共就三个文件?
你留一个试试看看增加几个相同的名字,
然后4个是不是就四个重复命名呢?
回复
yjs901 2010-07-15
高人呢?求解啊
回复
lionz1023 2010-07-15
放一个服务器测试下吧
回复
lionz1023 2010-07-15
[Quote=引用 5 楼 yjs901 的回复:]
不可能哦,我只刷新了一次。
[/Quote]
那应该是你那边本身的原因了,我测试良好!
回复
发动态
发帖子
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
社区公告
暂无公告