GBKEE

¦^´_ 1# tomking
¬O³o¼Ë¶Ü?

1. Option Explicit
   
2. Sub file_move()
   
3.     Dim fds As Object, fd As String, fo As String, fs As String, i As Integer
   
4.     Set fds = CreateObject("Scripting.filesystemobject")
   
5.     fd = [a1]
   
6.     fo = [b1]
   
7.     i = 1
   
8.     Do While Cells(i, "C") <> ""
   
9.         fs = Dir(fd & Cells(i, "C"))
   
10.         If fs = "" Then Exit Do
    
11.         If fds.FileExists(fo & fs) Then
    
12.             MsgBox "¥Ø¼Ð¸ê®Æ§¨,¦³¨Ó·½¤§¦PÀɦWÀÉ®×,½Ð½T»{", vbOKOnly, "¿ù»~°T®§"
    
13.             Exit Sub
    
14.         End If
    
15.         fds.copyfile fd & fs, fo & fs
    
16.         i = i + 1
    
17.     Loop
    
18. End Sub

½Æ»s¥N½X