当前页面位置: » 丰搜网 » 文档中心 » 详细内容
asp教程 - 用asp实现远程批量文件改名（二） -
for each objfile in objrootfolder.files
'对于特定的文件，不进行处理，可以根据需要设置；
if objfile.name = "thumbs.db" then strfilenamecount = strfilenamecount - 1
strfilenamecount = strfilenamecount + 1
next
set objrootfolder = objfs.getfolder(strfromdir)
for each objfile in objrootfolder.files
strfilenamelen = len (objfile.name)
if mid (objfile.name,(strfilenamelen - 3),1) = "." then
strfileext = right(objfile.name, 4)
else
strfileext = right(objfile.name, 5)
end if
strprevfilename = objfile.name
strnewfilename = strfilenamecount & strfileext
objfile.move strtargetdir & strnewfilename
response.write "源文件: " &strfromdir&strprevfilename & " ＞ 移动并改名为: " &strtargetdir& strnewfilename & "＜br＞" & vbcrlf
strfilenamecount = strfilenamecount + 1
strrealcount = strrealcount + 1
next
response.write "＜p＞＜b＞一共处理： " & (strrealcount) & " 个文件＜/b＞" & vbcrlf
set objrootfolder = nothing
set objfs = nothing
gbolgoprocedure = true
end if
if gbolgoprocedure then
response.write("＜p＞＜b＞批量文件批量移动和改名＜/b＞") & vbcrlf
else
response.write("＜center＞＜br＞＜form method=""post"" action=""filenameconverter.asp"" id=form1 name=""form1""＞") & vbcrlf
response.write("＜input type=""submit"" value="" 开 始 "" id=""gobutton"" name=""gobutton""＞") & vbcrlf
response.write("＜/form＞") & vbcrlf
response.write("＜p＞＜b＞点击按钮对文件进行批量移动和改名＜/b＞＜/center＞") & vbcrlf
end if
response.write "＜/body＞" & vbcrlf & "＜/html＞"
%＞
