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出現訊息之後,選繼續執行嗎(如何做)?
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出現訊息之後,選繼續執行嗎(如何做)?
全站熱搜
留言列表