日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置:首頁文章首頁 IT學院 IT技術

ASP遠程批量文件改名的方法

作者:  來源:  發布時間:2011-5-31 9:53:35  點擊:

這是關于ASP遠程批量文件改名的方法的教程,學習ASP的朋友可以看一下,ASP到底是如何來實現遠程批量文件改名的。

對于網站設計者而言,時常處理大批量的文件是難免的,特別是圖片和一些文本文本文件,更是經常處理。而由于網站大量文件的關系,對于同類型文件的命名,往往就直接采用帶有一定規律的遞增數字來作為文件名,比如,我們常見的圖片文件的命名,就時常采用1001.jpg、1002.jpg這種方式,這樣的好處是文件名不會重復,容易管理。這里,我們專門介紹一種簡單易行的方法來實現對任意文件夾下的所有文件進行批量改名,當然,改名以后的文件名,是根據網站設計者的需要,按照數字進行遞增的。
  
    我們使用ASP來實現以上功能,需要注意的是,因為設計到文件操作,使用FileSystemObject對象,所以,該功能的實現要在具有文件操作權限的網站進行。一般的虛擬注意,考慮到安全要求,可能不會給予文件存在權限,這是我們首先需要注意的;另外,在下面的程序中,我們將操作指定文件夾strFromDir中的所有文件,只要是這個文件夾中的文件,無論文件類型如何,程序都會對其進行文件改名操作,當然,文件類型是不會進行改變的,改名以后的文件,將不在保存在原文件夾,而是移動到新的文件夾strTargetDir,注意,我們這里是移動,不是拷貝,所以,進行操作以后,原文件夾中所有的文件都將不存在;程序很好的利用了FileSystemObject對象提供的各種屬性和特征,實現的時候簡單明了,使用其他語言編程的朋友可能會感受深刻;現在,我們就來看功能實現代碼:
  
  <% @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
  

文章評論

軟件按字母排列: A B C D E F G H I J K L M N O P Q R S T U V W X Y Z
主站蜘蛛池模板: 视觉暂留现象原理| 职业目标评估| china中国农村妇女aⅴ| 密桃成孰时| 看图猜明星| 性女贞德| 川岛丽| 我自己说了算作文| 性感美女动漫| 又大又肥又圆的白屁股| 影库影片| 杨玉环一级片| 爱你电视剧演员表| 送老师锦旗写什么最好| 美丽女老师| 哈尔移动的城堡 在线观看| china中国农村妇女aⅴ| 谭天谦| 秀人网 官网门户免费| 电影《真爱》完整播放| 镇魂街第三季| 花式特殊符号可复制| 电影《kiskisan》在线播放| 婚前协议电视剧演员表| 源代码 电影| 抖 音| 超越演员表| 刺客聂隐娘| 少年智力开发报| 余娅| 金针菇尽量少吃最好不吃什么| 彭丹丹最惊艳的电影| 妈妈的花样年华演员表全部| 张静东| 红色诗词六年级下册| 谭老板 电影| 中国未来会黑人化吗| 一类生字和二类生字图| 繁华电视剧剧情介绍| 天下免费大全正版资料| 投诉法官最快最有效果电话|