[Script] VBA 檔案搬移

[Script] VBA 檔案搬移 
Author: Willie
Date:2012/2/7

目的：利用寫VBA程式讓檔案移動到另一個資料夾，再加上windows排程就可以定時的搬移檔案。


'範例 - 利用 VBA Script搬移附檔名 .bak
'2012/2/7 Willie Chou

On Error Resume Next Err.Clear    Set objFSO = CreateObject("Scripting.FileSystemObject")      objFSO.MoveFile "D:\a\*.bak" , "d:\b\"    Set objFSO = Nothing If Err.Number <> 0 Then   MsgBox Err.Description Else    MsgBox "OK" End If