Re: [請問] 搬移指令MOVE有加強版嗎?
※ 引述《piligo (霹靂狗)》之銘言：
: Set objFSO = CreateObject("Scripting.FileSystemObject")
: objFSO.MoveFile "d:\a1\*" , "d:\a2"
: objFSO.MoveFolder "d:\a1\*" , "d:\a2"
: 把上面內容存成vbs副檔名，就可以直接執行，缺點當來源裡面沒有檔案或資料夾
: 就會停擺(有錯誤訊息)、目標有重複的名稱存在也會停擺(有錯誤訊息)
: 所以還有改進的空間 XD
我拿出我的Vbscript 500個活用範例貼了一下弄出這個XD
With Wscript
IF .Arguments.Length < 2 Then
Wscript.echo "參數不足"
Wscript.quit()
End IF
Source = .Arguments.Item(0)
Target = .Arguments.Item(1)
End With
SET FSO = CreateObject("Scripting.FileSystemObject")
IF NOT FSO.FolderExists(Source) Then
Wscript.echo "來源不是資料夾"
Wscript.quit()
End IF
IF FSO.FileExists(Target) Then
Wscript.echo "目標為檔案"
Wscript.quit()
End IF
IF NOT FSO.FolderExists(Target) Then FSO.CreateFolder Target
FSO.MoveFile Source & "\*" , Target
FSO.MoveFolder Source & "\*" , Target
用法：複製上面的文字之後開啟記事本貼上存檔
然後存成123.vbs (記得檔案類型選所有檔案，不然會存成123.vbs.txt)
之後命令提示字元打
cscript //nologo 123.vbs d:\a1 d:\a2
不過一樣碰到不能刪除或不能存的檔案會出錯
我不知道用On Error Resume Next能不能跳過
--
長路如淡夢 無盡空嘆息
月光照亮我心房 野花輕搖指前路
過失之痛滿胸中
抬手長自撫 願能將其拂
欲言又止萬千語 化作葉兒染愛色
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.132.171.86
討論串 (同標題文章)
EZsoft 近期熱門文章
PTT數位生活區 即時熱門文章
