当前位置:首页 > 开发 > 编程语言 > 编程 > 正文

批量修改文件前缀的VBS源码

发表于: 2010-05-04   作者:bardo   来源:转载   浏览次数:
vbs
摘要: On Error Resume Next Dim prefix, DirTotal, TimeSpend, FileTotal, fso, curPath, sPath Const MY_COMPUTER = &H11& Const WINDOW_HANDLE = 0 Const OPTIONS = 0 Set objShell = CreateObject(&q
On Error Resume Next
Dim prefix, DirTotal, TimeSpend, FileTotal, fso, curPath, sPath

Const MY_COMPUTER = &H11&
Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
strPath = objFolderItem.Path

Set objFolder = objShell.BrowseForFolder(WINDOW_HANDLE, "选择你要处理的文件夹:", OPTIONS, strPath)
If objFolder Is Nothing Then
        MsgBox "您没有选择任何有效目录!"
        wscript.quit
Else
        Set objFolderItem = objFolder.Self
        sPath = objFolderItem.Path
        curPath = sPath

        FileTotal = 0
        DirTotal = 0

        prefix = LCase(InputBox("请输入你要添加的文件前缀:", "批量文件添加前缀", "create_"))

        TimeSpend = Timer

        myFind curPath, prefix

        TimeSpend = Round(Timer - TimeSpend, 2)

        MsgBox "处理完成!共耗费时间:" & TimeSpend


        Set fso = Nothing
        wscript.quit
End If

Sub myFind(ByVal thePath, ByVal prefix)

        Dim fso, myFolder, myFile, curFolder
        Set fso = wscript.CreateObject("scripting.filesystemobject")
        Set curFolders = fso.getfolder(thePath)
        DirTotal = DirTotal + 1
       
        If curFolders.Files.Count > 0 Then
                For Each myFile In curFolders.Files
                        if left(myFile.Name,len(prefix))<>prefix then
                         myFile.Move FormatPath(thePath) & "\" & prefix & myFile.Name
                         FileTotal = FileTotal + 1
      end if
                Next
        End If

        If curFolders.subfolders.Count > 0 Then
                For Each myFolder In curFolders.subfolders
                        myFind FormatPath(thePath) & "\" & myFolder.Name, prefix
                Next
        End If

End Sub

Function FormatPath(ByVal thePath)

        thePath = Trim(thePath)
        FormatPath = thePath
        If Right(thePath, 1) = "\" Then FormatPath = Mid(thePath, 1, Len(thePath) - 1)

End Function


将以上代码存为 addpre.vbs 就可以运行使用了。

批量修改文件前缀的VBS源码

  • 0

    开心

    开心

  • 0

    板砖

    板砖

  • 0

    感动

    感动

  • 0

    有用

    有用

  • 0

    疑问

    疑问

  • 0

    难过

    难过

  • 0

    无聊

    无聊

  • 0

    震惊

    震惊

编辑推荐
统一修改文件编码 Windows -> Preferences -> General -> Content Types 会修改文件的编码
刚刚下载了魅族M8手机上用的一堆图标文件,PNG格式,90x90象素,大约有一千多个文件。原有的文件名
刚刚下载了魅族M8手机上用的一堆图标文件,PNG格式,90x90象素,大约有一千多个文件。原有的文件名
拿到一个matlab代码包,里面的m文件都是*.M格式,在我的电脑上无法识别,用bat文件可以批量修改成*.
1. 批量修改表名前缀有个很简单的方法,大家使用到的帝国备份王等工具就自带此功能: 批量替换表名
谈到"C#代码反编译",大家可能都会想到 Reflector代码反编译工具,对其应该也不会太陌生;做C#开发
  和上篇博文经历类似, 批量修改文件名字. : )   不多说, 看图, 程序运行之前:         
进行J2EE开发时,经常得拿现成的前端文件,如JS、CS、JSP、html等文件。把这些文件导入到webRoot(或
转自http://www.iteye.com/topic/698868 刚才在论坛上看见有人把项目从windows移植到unix上,因为编
摘要:很多时候,我们都会遇到要给文件重新命名的情况。例如,音乐爱好者要把自己到处收集的MP3,按
版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号