。YEH的夢想世界。起飛~

因為有一個需求，而原始程式又是用vbs寫的，

我這只會c#的菜鳥可是找好久才找到方法呀，

所以就來記錄一下囉~

問題：

在一個母資料夾內有很多個子資料夾，

資料夾名稱如下：

0000123456.files

0000254789.files

0000015478.files

......前面十碼是數字後面帶.files

沒錯就是word轉存htm所帶出的圖檔資料夾，

現在我要批次的將這些資料夾更名，把所有資料夾的.files都去除掉，

方法如下：

Dim a
a="D:\111"  '資料夾路徑

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 ,10)
      fso.MoveFolder "D:\111\"+so, "D:\111\"+de
Next
ShowFolderList = s
End Function
Msgbox ShowFolderList(a) & "完成"

先列出資料夾清單，用for each迴圈列一個改一個，這樣就可以了