批量修改文件后缀

2009-9-2 09:28 904 0

摘要: 是转载过来，不错的小技巧。朋友因为要把一个文件夹下面的txt文件全部转成.html的格式，因为文件数量太多，有一万多个文件吧，修改起来很麻烦，于是叫我想想法子，我现在把代码贴出来，可以修改文件夹的所有...

关键词： nbsp 文件文件夹面的 sysFile 代码法子文件名 Response sysFiles

是转载过来，不错的小技巧。朋友因为要把一个文件夹下面的txt文件全部转成.html的格式，因为文件数量太多，有一万多个文件吧，修改起来很麻烦，于是叫我想想法子，我现在把代码贴出来，可以修改文件夹的所有文件的文件后名. 程序代码 <%set fso=server.CreateObject("scripting.filesystemobject")set objFolder=fso.GetFolder(server.MapPath("./txt"))set objFiles=objFolder.Filesi=0for each ii in objFilesi=i+1fso.movefile server.MapPath("./txt/"&ii.name),server.MapPath("./txt/punier"&i&".html")nextresponse.Write "转换ok"&"<br>"%><% Set sysFSO = Server.CreateObject("Scripting.FileSystemObject") Set sysFolder = sysFSO.GetFolder(Server.MapPath("./txt")) Set sysFiles = sysFolder.Files If sysFiles.Count <> 0 Then For Each sysFile In sysFiles Response.Write sysFile.Name&"<br>" Next End If %> 另外，还可以修改成你想要的文件名，如.asx，asp等等，可以修改里面的参数.

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除