Python语言技术文档

微信小程序技术文档

php语言技术文档

jsp语言技术文档

asp语言技术文档

C#/.NET语言技术文档

html5/css技术文档

javascript

点击排行

您现在的位置:首页 > 技术文档 > asp技巧

用asp实现远程将文件批量改名的代码

来源:中文源码网    浏览:336 次    日期:2024-03-28 14:16:24
【下载文档:  用asp实现远程将文件批量改名的代码.txt 】


用ASP实现远程将文件批量改名的代码
<% @LANGUAGE = VBSCRIPT %><%Option Explicit%><%'以下程序批量改名文件夹中的文件名,并将所有文件移动到新的文件夹;Response.Write "<html>" & VbCrLf & "<head>" & VbCrLfResponse.Write "<title>批量文件改名</title>" & VbCrLfResponse.Write "</head>" & VbCrLf & "<body>" & VbCrLf ' 变量说明Dim gbolGoProcedureDim strFromDir '源文件夹Dim strTargetDir '目标文件夹Dim objFSDim objRootFolderDim objFileDim strFileNameLenDim strPrevFileNameDim strFileExt '文件扩展名Dim strFileNameCountDim strNewFileNameDim strRealCount '处理的文件数量gbolGoProcedure = False' 如果点击了开始按钮,进行以下处理If (Request.Form("GoButton")) = " 开 始 " then' 指定源文件夹、目标文件夹 strFromDir = "D:test\" strTargetDir = "D:\test1\" ' 将处理文件数量设置为0 strRealCount = 0 Set objFS = Server.CreateObject("Scripting.FileSystemObject") Set objRootFolder = objFS.GetFolder(strTargetDir) '文件名的具体设置,这里设置为100001,表明文件名将从100001 '开始,逐步递增,可以根据需要设置; strFileNameCount = 100001For each objFile in objRootFolder.Files '对于特定的文件,不进行处理,可以根据需要设置; If objFile.Name = "Thumbs.db" then strFileNameCount = StrFileNameCount - 1 strFileNameCount = strFileNameCount + 1 NextSet 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 + 1Next Response.Write "<p><b>一共处理: " & (strRealCount) & " 个文件</B>" & vbCrLf Set objRootFolder = Nothing Set objFS = Nothing gbolGoProcedure = TrueEnd IfIf gbolGoProcedure Then Response.Write("<p><b>批量文件批量移动和改名</b>") & vbCrLfElse 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>") & VbCrLfEnd IfResponse.Write "</body>" & VbCrLf & "</html>"%>

相关内容