服务报价 | 域名主机 | 网络营销 | 软件工具| [加入收藏]
 热线电话: #
当前位置: 主页 > php教程 > 其他 >

VBS遍历文件夹把大写改小写

时间:2012-03-24 17:21来源:未知 作者:最模板 点击:
VBS遍历文件夹把大写改小写,把以下代码放在记事本,修改成扩展名.vbs,就可! functionFileList(Path) set fso = CreateObject (Scripting.FileSystemObject) set objFolder = fso .GetFolder(Path) set objSubFolders = o

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

  1. function FileList(Path) 
  2. set fso=CreateObject("Scripting.FileSystemObject") 
  3. set objFolder=fso.GetFolder(Path) 
  4. set objSubFolders=objFolder.Subfolders 
  5. for each objSubFolder in objSubFolders 
  6.     nowPath=Path + "\" + objSubFolder.name 
  7.     set objFiles=objSubFolder.Files 
  8.     for each objFile in objFiles 
  9.         fso.movefile nowPath & "\"&objFile.name,nowPath &"\"& lcase(objFile.name) 
  10.     next 
  11.     FileList(nowPath)'递归 
  12. next 
  13. set objFolder=nothing 
  14. set objSubFolders=nothing 
  15. set fso=nothing 
  16. end function 
  17.   
  18. msgbox "开始,可能需要一段时间" 
  19.   
  20. FileList("D:\zuimoban")  
  21.   
  22. msgbox "修改完成" 

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

(责任编辑:最模板)
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
栏目列表
热点内容