製指定 C檔位有檔名之檔案

tomking

DEAR  大大..

請教,如何改成, C1欄位..一直往下,  
PS: 複製指定 C檔位有檔名之檔案

Sub file_move()

Set fds = CreateObject("Scripting.filesystemobject")
fd = [a1]
fo = [b1]
fa=[c1].value         ---> ?

fs = Dir(fd & fa)
Do Until fs = ""     --->??  
If fds.FileExists(fo & fs) Then
    MsgBox "目標資料夾,有來源之同檔名檔案,請確認", vbOKOnly, "錯誤訊息"
Exit Sub
End If

fds.copyfile fd & fs, fo & fs

fs = Dir
Loop
End Sub




再麻煩...

GBKEE

回復 1# tomking
是這樣嗎?

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 "目標資料夾,有來源之同檔名檔案,請確認", vbOKOnly, "錯誤訊息"
    
13.             Exit Sub
    
14.         End If
    
15.         fds.copyfile fd & fs, fo & fs
    
16.         i = i + 1
    
17.     Loop
    
18. End Sub

複製代碼

tomking

感謝版主

冬至將到 ,冬至快樂...