简化版 分站 股指 日历 影视
计算器 携程 地图 行情 电脑
加解密 长度 面积 空位 空位
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
 
您现在的位置:首页 >> ASP >> 内容

用ASP实现远程批量文件改名

内容摘要:<% @LANGUAGE = VBSCRIPT %><%Option Explicit%><%'以下程序批量改名文件夹中的文件名,并将所有文件移动到新的文件夹;Response.Write '<html>'VbCrLf'<head>'VbCrLfResponse.Write '<title>批量文件改名</title>'VbCrLfResponse.Writ......

  <% @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>"


%>

  版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


发布日期:2019/3/7 发布时间:15:08:49 点击:1541 
  • 上一篇:asp文本框换行显示代码
  • 下一篇:ASP得到文件的大小类型最后修改时间
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2019

    本空间由景安网络提供,奇安信网站卫士提供加速防护
    YiJiaCMS V3.12 Build 19.7.12(MSSQL) 闽ICP备05000814号-1