神马品牌网与长征有关的诗句:关于批量导入文件
来源：百度文库 编辑：神马品牌网 时间：2024/05/04 04:03:48
一个文件夹下有1~n个文件，要求把n个文件名不同的文件取代原来的文件，但是文件名还是1~n，有没有办法
<%
sub rename(path) '重命名,参数 目录名成
dim fso,fs,filename,fileExt,tmp
dim n
set fso=server.CreateObject("Scripting.filesystemobject")
set fs=fso.getFolder(path)
n=0
for each filename in fs.files
n=n+1
fileExt=right(filename.name,len(filename.name)-instrRev(filename.name,"."))
filename.name=n&"."&fileExt
next
end sub
rename server.MapPath("a/")
%>