奇偶文件重新命名

用在，如数码相机拍书本时，奇数页和偶数页分开拍（尽量避免页面拱起，保持平平整），但到最后，又要重新命名合成一本完整的书。代码如下

 

 

index.asp

 

---

 

 

文件重新命名
原文件目录：
	奇数　 偶数

   

 

 

do.asp

 

---

 

 

<% response.Charset="utf-8" dim filedir,foldername,obj,files,objfolder,nametype,i filedir=trim(request("filedir")) foldername=trim(request("foldername")) nametype=trim(request("nametype")) if len(filedir)>0 then set obj=Server.CreateObject("Scripting.FileSystemObject") if not obj.FolderExists(server.MapPath(foldername)) then obj.createfolder(server.MapPath(foldername)) response.Write(foldername&"文件夹新建成功！
") end if set objfolder=obj.getfolder(filedir) set files=objfolder.files if nametype=1 then i=1 else i=2 end if for each f in files obj.copyfile filedir&f.name,server.MapPath(foldername&"/letianbook"&i&".jpg") response.Write(i&" : "&f.name&"文件重命名成功！
") i=i+2 next end if %>

 

结束…………………………………………………………………………………………………………