VBS遍历文件夹把大写改小写，把以下代码放在记事本，修改成扩展名.vbs，就可！

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:\zuimoban")  
  
msgbox "修改完成" 

 合适于开发的程序，文件夹大小写没区分，引起linux不兼容问题！