請問一下各位大大，在AD裡面，我想要大量搬移D:\裡面的資料匣以及刪除!!(VBS)

ad vbs 搬移

coolman3612 2009-10-20 12:03:58 ‧ 8861 瀏覽

我假如再D:\裡面有一個資料匣123，但是裡面有很多.TXT的檔案，我想要刪除不要的或者一動特定的檔案到D:\456資料匣，請問各位大大該怎麼寫，我是程式菜鳥！謝謝各位大大的指教！

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

2 個回答

魯大

iT邦高手 1 級 ‧ 2009-10-21 17:19:13

最佳解答

先給你一個移動的方法，做參考..

&lt;pre class="c" name="code">
Option Explicit

Private FSO
Private SourceDir
Private SourcePath
Private TargetPath

Set FSO = CreateObject("Scripting.FileSystemObject")
SourceDir = FSO.GetFolder("D:\123").Path
TargetPath = FSO.GetFolder("D:\456").Path
SourcePath = FSO.BuildPath(SourceDir, "*.txt")
FSO.MoveFile SourcePath, TargetPath & "\"
Set FSO = Nothing

這是把「d:\123」資料夾裡的所有TXT檔移動到「D:\456」資料夾內
但是如果你要移動的TXT檔是特定的，不是全部
那你可以利用萬用字元「*」或「?」來表示
例如：00*.TXT -> 00開頭的所有txt檔