![]() ![]() ![]() ![]() |
|||||
|
|||||
樓主 mmm ![]()
![]() |
我有個問題是要寫一個vbs來修改一些資料夾的檔名, 例如: 000011.files 000123.files 000456.files ...多個資料夾, 現在我要把這個資料夾的檔名後面的.files刪除, 變成 000011 000123 000456 ..多個資料夾, 因為原始的程式就是用vbs寫的,我是要在這個程式裡去加這一段, 請高手大大們幫幫汒吧!謝謝
搜尋相關Tags的文章:
[ vbs ] ,
本篇文章發表於2014-04-17 16:54 |
1樓
作者回應
mmm ![]() |
哈哈哈~我自己試出來了~分享後大家
Dim a a="D:\111" 'Msgbox ShowFolderList(a) Function ShowFolderList(folderspec) Dim fso, f, f1, s, sf, so, de Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folderspec) Set sf = f.SubFolders For Each f1 in sf so = f1.name de = Left(f1.name ,6) fso.MoveFolder so, de Next ShowFolderList = s End Function
本篇文章回覆於2014-04-18 11:48
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
回覆 |
如要回應,請先登入. |