台灣最大程式設計社群網站
線上人數
1268
 
會員總數:246690
討論主題:190103
歡迎您免費加入會員
討論區列表 >> Java Script/ Node.js >> 請問用vbs更改資料夾名稱的語法
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
請問用vbs更改資料夾名稱的語法
價值 : 10 QP  點閱數:1077 回應數:1
樓主

mmm
門外漢
0 2
34 3
發送站內信

不好意思,由於我不會用vbs,所以來這求救,

我有個問題是要寫一個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
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.