windows – 重命名文件的脚本

发布时间：2020-12-14 03:51:56 所属栏目：Windows 来源：网络整理

导读：我在几个不同的文件夹中有大约2200个不同的文件,我需要重命名它们在自己的子文件夹中的大约1/3.那些700也在各种文件夹中. 例如,可能有最顶层的文件夹是Employees,其中有几个文件,然后文件夹2002有几个,2003有更多的文件,2004等. 我只需要在每个文件的现有名

我在几个不同的文件夹中有大约2200个不同的文件,我需要重命名它们在自己的子文件夹中的大约1/3.那些700也在各种文件夹中.

例如,可能有
最顶层的文件夹是Employees,其中有几个文件,然后文件夹2002有几个,2003有更多的文件,2004等.

我只需要在每个文件的现有名称前加上“协议”一词.因此,而不仅仅是“Joe Schmoe.doc”而是“协议Joe Schmoe.doc”.

我试过谷歌搜索这样的脚本,我可以找到类似于我想要的东西,但它看起来对我来说完全陌生,所以我无法理解我是如何修改它以满足我的需要.

哦,这是为Windows服务器’03.

解决方法

我需要大约2分钟为* NIX系统编写这样的脚本(可能更少),但对于Windows来说这是一首很长的歌…))

我为WSH编写了简单的VBS脚本,尝试它(保存到{script-name} .vbs,更改Path值(在脚本的第一行)并执行).我建议第一次在少量数据上测试脚本,以确保它是否正常工作.

Path = "C:UsersrootDirectory"
Set FSO = CreateObject("Scripting.FileSystemObject")

Sub visitFolder(folderVar)
    For Each fileToRename In folderVar.Files
        fileToRename.Name = "Agreement " & fileToRename.Name
    Next
    For Each folderToVisit In folderVar.SubFolders
        visitFolder(folderToVisit)
    Next
End Sub

If FSO.FolderExists(Path) Then
    visitFolder(FSO.getFolder(Path))
End If

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!