用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: est1"

" 将处理文件数量设置为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＞"

%＞