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" '¦s¨ú¥Øªº¦ì¸m
    
11. 
    
12. source = Application.GetOpenFilename(MultiSelect:=True)  '¨Ó·½
    
13. 
    
14. If Not IsArray(source) Then: MsgBox "¤W¶Ç¥¢±Ñ¡A½Ð¿ï¨ú¥¿½T¨Ó·½ÀɮסC": 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 & " ¤w¤W¶Ç¡C"
    
27.     End If
    
28. Next
    
29. End Sub

½Æ»s¥N½X