Private Sub Command1_Click()
x = InputBox("請輸入主機代號Dcrs_????")
c = InputBox("請輸入起始目錄")
d = InputBox("請輸入結束目錄")
For y = 1 to 4
a = InputBox("請輸入檔案名稱")
For b = Str(c) To Str(d)
 On Error Resume Next
 Dim fs As New FileSystemObject
 fs.CopyFile "\\Dcrs_" & x & "\DCRS\MESSAGE\00" & b & "\" & a, "c:\234\" & b & "\"
 Next b
Next y
End Sub
若b=1 to 20
a=1.txt,2.txt,3.txt,4.txt
1.請問各位高手,若001這個資料夾裏沒有1.txt檔案,那如何讓程式忽略錯誤自動去執行找002資料夾裏的1.txt(如何做)?
2.可以讓On Error出現訊息之後,選繼續執行嗎(如何做)?
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(2) 人氣()