遍歷文件夾改名
本文正體字版由OpenCC轉換
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 "修改完成"
上次修改時間 2017-02-03