請問一下各位大大，在AD裡面，我想要大量搬移D:\裡面的資料匣以及刪除!!(VBS) - iT 邦幫忙::一起幫忙解決難題，拯救 IT 人的一天

0

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

ad vbs 搬移

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

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

登入發表討論

2 個回答

8

魯大

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檔

回應 2
分享
檢舉

coolman3612 iT邦新手 5 級 ‧ 2009-10-21 18:04:45 檢舉

謝謝這位大大的幫忙，我修改一下應該就可以用了！謝謝您！

tom6507 iT邦大師 1 級 ‧ 2009-10-22 08:37:15 檢舉

除了學校的功課外，我還是不瞭解這樣用跟批次檔有何差別.....

登入發表回應

6

ycl8000

iT邦高手 1 級 ‧ 2009-10-21 08:26:43

1.del d:\123\*.txt (刪除d:\123底下所有.txt的檔案)
2.mvoe d:\123\xxx.txt d:\456 (移動d:\123\xxx.txt 到d:\456)

回應 3
分享
檢舉

coolman3612 iT邦新手 5 級 ‧ 2009-10-21 08:49:21 檢舉

這位大哥，您是來亂的嗎？您這樣誰都知道吧！我是要問VBS要怎麼寫！

這邊有另外一個大大，所提供的資料大量刪除，http://ithelp.ithome.com.tw/question/10009001

ycl8000 iT邦高手 1 級 ‧ 2009-10-21 12:00:51 檢舉

拍謝,因為我不知道為什麼用簡單指令可以解決的事情, 非得需要用到VBS, 你可以說明一下嗎?

misadm iT邦高手 10 級 ‧ 2009-10-22 08:22:21 檢舉

我也很好奇，為什麼一定要用 VBS，很想了解樓主的需求耶！

登入發表回應

我要發表回答

立即登入回答

iT邦幫忙鐵人賽

參賽組數

926 組

團體組數

50 組

累計文章數

17911 篇

完賽人數

528 人

前往鐵人賽

前往鐵人賽

IT邦幫忙

12th鐵人賽 11th鐵人賽鐵人賽 2019鐵人賽 2018鐵人賽 javascript 2017鐵人賽 windows php windows server linux python 程式設計 c# 資訊安全 css 分享 sql 專案管理 mysql