標題: [發問] 如何在判斷有無檔案後,有則執行 無則晃過呢? [打印本頁]

---

作者: starry1314    時間: 2015-6-8 18:32     標題: 如何在判斷有無檔案後,有則執行 無則晃過呢?

Sub 復原檔案()
    Set fs = CreateObject("Scripting.FileSystemObject")
    aa = Range("AN3").Value '讀取名稱決定要移動哪個指定檔案
    ab = Range("AN4").Value '讀取名稱決定要移動哪個指定檔案
    fs.movefile "\\boss-pc\公用磁區\數據\小餐單\105\結束\" & aa & "", "\\boss-pc\公用磁區\數據\小餐單\進行\"
    fs.movefile "\\boss-pc\公用磁區\數據\小餐單\105\結束\" & ab & "", "\\boss-pc\公用磁區\數據\小餐單\進行\"
End Sub
因為不會寫再一起,所以是將上方指令拆成兩段,


知道是用if 和 else  但寫好後 只判斷有無檔案,卻沒有執行..

---

作者: Scott090    時間: 2015-6-9 07:54

回復 1# starry1314


    有則執行 無則晃過, 試試看
on error resume next
fs.movefile "\\boss-pc\公用磁區\數據\小餐單\105\結束\" & aa & "", "\\boss-pc\公用磁區\數據\小餐單\進行\"
err.clear
    fs.movefile "\\boss-pc\公用磁區\數據\小餐單\105\結束\" & ab & "", "\\boss-pc\公用磁區\數據\小餐單\進行\"
on error goto 0

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)