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

时间:2022-04-25 01:10:16
  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. %>