下面的程序，使用fso组件，实现文件改名。

fso组件不提供简单的文件改名的方法，但是可以利用“另存为”这个功能来实现。
  
 ＜% @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＞"
 
 %＞