脚本 vbscript遍历文件夹改名

Linux与Windows我认为最大的不同就在于大小写敏感。由于我在Windows下习惯了，许多文件名大小写混杂，想移植到Linux下的确很麻烦。

我本着简单易行的原则谢了一段vbs代码，可以遍历一个文件夹（包括子文件夹），把所有大写改成小写。

这段代码很有用，遍历文件夹是个麻烦的事，有了这个函数就方便了。

将以下代码保存成a.vbs或a.vbe然后运行就可以了，注意修改目录。

function FileList(Path)
set fso=CreateObject("Scripting.FileSystemObject")
set objFolder=fso.GetFolder(Path)
set objSubFolders=objFolder.Subfolders
for each objSubFolder in objSubFolders
    nowPath=Path + "\" + objSubFolder.name
    set objFiles=objSubFolder.Files
    for each objFile in objFiles
        fso.movefile nowPath & "\"&objFile.name,nowPath &"\"& lcase(objFile.name)
    next
    FileList(nowPath)'递归
next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function

msgbox "开始，可能需要一段时间····"

FileList("D:\fansite_kit") 

msgbox "修改完成"

转载于:https://www.cnblogs.com/zhongbin/archive/2013/06/05/3118273.html