naruto018

回復 1# rouber590324

參考看看

1. Sub test()
   
2. Dim folder As String '資料
   
3. Dim source ' As String '來源檔
   
4. Dim source2, source3, source4 As String
   
5. Dim dest As String '目的檔
   
6. Dim p As Integer
   
7. Dim s As Integer
   
8. Dim i As Long
   
9. 
   
10. folder = "D:\ABC" '存取目的位置
    
11. 
    
12. source = Application.GetOpenFilename(MultiSelect:=True)  '來源
    
13. 
    
14. If Not IsArray(source) Then: MsgBox "上傳失敗，請選取正確來源檔案。": Exit Sub
    
15. 
    
16. For Each source2 In source
    
17.     source3 = Split(source2, "\")
    
18.     source4 = source3(UBound(source3))
    
19.         
    
20.     dest = IIf(Right(folder, 1) = "\", folder, folder & "\") & source4
    
21.    
    
22.     If Dir(dest) <> "" Then
    
23.     MsgBox msg1
    
24.     Else
    
25.     FileCopy source2, dest
    
26.     MsgBox source2 & " 已上傳。"
    
27.     End If
    
28. Next
    
29. End Sub

複製代碼