关于批量导入文件

一个文件夹下有1~n个文件,要求把n个文件名不同的文件取代原来的文件,但是文件名还是1~n,有没有办法

62 浏览 1 回复
  文件   文件名   要求   没有   有没有  

回复

    <%
    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/")
    %>

    侯琳

相关提问


友情链接: