用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
对于特定的文件，不进行处理，可以根据需要设置；
= 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＞

%＞