返回列表 上一主題 發帖

[發問] 如何在判斷有無檔案後,有則執行 無則晃過呢?

starry1314
　暱稱: 豪

高中生Rank: 3Rank: 3

帖子
471 
主題
121 
精華
0 
積分
579 
點名
0  
作業系統
WIN10 
軟體版本
OFFICE2019 
閱讀權限
50 
性別
男 
註冊時間
2015-4-16 
最後登錄
2023-1-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 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

帖子
508 
主題
53 
精華
0 
積分
583 
點名
97  
作業系統
win 10 
軟體版本
[] 
閱讀權限
50 
性別
男 
註冊時間
2013-3-19 
最後登錄
2024-5-11 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章論壇榮譽勳章論壇贊助勳章2015羊年全勤獎章
2#
發表於 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

TOP

        靜思自在 : 我們最大的敵人不是別人．可能是自己。
返回列表 上一主題