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出現訊息之後,選繼續執行嗎(如何做)?
創作者介紹

小吳 VBQA 程式設計討論

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


留言列表 (2)

發表留言
  • Destiny
  • 修改如下....
    ServerPath="\\Dcrs_" & x & "\DCRS\MESSAGE\00"
    LocalPath="c:\234\"
    For y = 1 to 4
    a = InputBox("請輸入檔案名稱")

    For b = Str(c) To Str(d)
      On Error Resume Next
      Dim fs As New FileSystemObject
      If Dir(ServerPath & b & "\" & a)=a Then
       fs.CopyFile ServerPath & b & "\" & a, LocalPath & b & "\"
      End If
     Next b

    Next y
  • Wolfgang
  • Destiny 大大..
    謝謝您的解說,原來我一直困在偵錯的程式裏,再一次說謝謝。
    ChrisTorng 大大..
    這是我在辦公室裏寫1支自動化捉取檔案的程式,沒有抄別人的範例,這也是弟剛學習的,謝謝您們的幫忙。
    By Wolfgang