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

1. ＜% @LANGUAGE = VBSCRIPT %＞ 
2. ＜%Option Explicit%＞ 
3. ＜% 
4. '以下程序批量改名文件夹中的文件名，并将所有文件移动到新的文件夹； 
5. Response.Write "＜html＞" & VbCrLf & "＜head＞" & VbCrLf 
6. Response.Write "＜title＞批量文件改名＜/title＞" & VbCrLf 
7. Response.Write "＜/head＞" & VbCrLf & "＜body＞" & VbCrLf  
8. ' 变量说明 
9. Dim gbolGoProcedure 
10. Dim strFromDir '源文件夹 
11. Dim strTargetDir '目标文件夹 
12. Dim objFS 
13. Dim objRootFolder 
14. Dim objFile 
15. Dim strFileNameLen 
16. Dim strPrevFileName 
17. Dim strFileExt '文件扩展名 
18. Dim strFileNameCount 
19. Dim strNewFileName 
20. Dim strRealCount '处理的文件数量 
21.  
22. gbolGoProcedure = False 
23.  
24. ' 如果点击了开始按钮，进行以下处理 
25. If (Request.Form("GoButton")) = " 开 始 " then 
26.  
27. ' 指定源文件夹、目标文件夹 
28.  
29. 　strFromDir = "D:test\" 
30. 　strTargetDir = "D:\test1\" 
31.  
32. 　' 将处理文件数量设置为0 
33.  
34. 　strRealCount = 0 
35.  
36. 　Set objFS = Server.CreateObject("Scripting.FileSystemObject") 
37.  
38. 　Set objRootFolder = objFS.GetFolder(strTargetDir) 
39. 　'文件名的具体设置，这里设置为100001，表明文件名将从100001 
40. 　'开始，逐步递增，可以根据需要设置； 
41. 　strFileNameCount = 100001 
42. For each objFile in objRootFolder.Files 
43. 　'对于特定的文件，不进行处理，可以根据需要设置； 
44. 　If objFile.Name = "Thumbs.db" then strFileNameCount = StrFileNameCount - 1 
45. 　strFileNameCount = strFileNameCount + 1  
46. Next 
47.  
48. Set objRootFolder = objFS.GetFolder(strFromDir) 
49. For each objFile in objRootFolder.Files 
50. 　strFileNameLen = Len (objFile.Name) 
51. 　If Mid (objFile.Name,(strFileNameLen - 3),1) = "." then 
52. 　　strFileExt = right(objFile.Name, 4) 
53. 　Else 
54. 　　strFileExt = right(objFile.Name, 5) 
55. 　End If 
56.  
57. 　strPrevFileName = objFile.Name 
58. 　strNewFileName = strFileNameCount & strFileExt 
59.  
60. 　objFile.Move strTargetDir & strNewFileName 
61.  
62. 　Response.Write "源文件: " &strFromDir&strPrevFileName & " ＞ 移动并改名为: " &strTargetDir& strNewFileName & "＜br＞" & vbCrLF 
63. 　strFileNameCount = strFileNameCount + 1 
64. 　strRealCount = strRealCount + 1 
65.  
66. Next 
67.  
68. 　Response.Write "＜p＞＜b＞一共处理： " & (strRealCount) & " 个文件＜/B＞" & vbCrLf 
69.  
70. 　Set objRootFolder = Nothing 
71. 　Set objFS = Nothing 
72.  
73. 　gbolGoProcedure = True 
74.  
75. End If 
76.  
77. If gbolGoProcedure Then 
78. 　Response.Write("＜p＞＜b＞批量文件批量移动和改名＜/b＞") & vbCrLf 
79.  
80. Else 
81. 　Response.Write("＜center＞＜br＞＜form method=""post"" action=""FileNameConverter.asp"" 　ID=form1 name=""form1""＞") & vbCrLf 
82. 　Response.Write("＜input type=""SUBMIT"" value="" 开 始 "" ID=""GoButton"" 　name=""GoButton""＞") & vbCrLf 
83. 　Response.Write("＜/form＞") & vbCrLf 
84. 　Response.Write("＜p＞＜b＞点击按钮对文件进行批量移动和改名＜/b＞＜/center＞") & VbCrLf 
85. End If 
86.  
87. Response.Write "＜/body＞" & VbCrLf & "＜/html＞" 
88.  
89. %＞