|
|
|
|
用ASP实现远程批量文件改名（二） |
|
|
|
作者：佚名 来源：本站原创 加入时间：2003-12-15 月光软件站 |
|
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＞"
%＞(计算机世界网)
|
|
相关文章：远程复制更省力 用CuteFTP实现FXP不需要任何工具，远程屏蔽telnet服务的ntlm认证ActivePerl PerlIS.dll 远程缓冲区远程破OICQ密码给工具QQExplorer ver 1.25介绍微软"帮助和支持中心"远程代码执行漏洞用ASP实现远程批量文件改名用ASP实现远程批量文件改名（一）远程获取内容，并将内容存在本地电脑上，包括任何文件相关软件： 用Winsock实现远程聊天 远程桌面客户端 远程文件管理系统 2.0远程注册程序 一个远程控制软件 远程注册 |
|
本类阅读TOP10