用ASP实现远程将文件批量改名的代码
以下是网学网为您推荐的ASP-用asp实现远程将文件批量改名的代码，希望本篇文章对您学习有所帮助。
＜% @LANGUAGE = vbSCRIPT %＞＜%Option Explicit%＞
＜%
''以下程序批量改名文件夹中的文件名，并将所有文件移动到新的文件夹；
Response.Write "＜html＞" & VbCrLf & "＜head＞" & VbCrLf
Response.Write "＜title＞批量文件改名＜/title＞" & VbCrLf
Response.Write "＜/head＞" & VbCrLf & "＜body＞" & VbCrLf
'' 变量说明
Dim gbolGoProcedure
Dim strFromDir ''源文件夹
Dim strTargetDir ''目标文件夹
Dim objFS
Dim objRootFolder
Dim objFile
Dim strFileNameLen
Dim strPrevFileName
Dim strFileExt ''文件扩展名
Dim strFileNameCount
Dim strNewFileName
Dim 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 = 100001
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＞"
%＞