- 帖子
- 34
- 主題
- 10
- 精華
- 0
- 積分
- 56
- 點名
- 0
- 作業系統
- WINDOWS10
- 軟體版本
- office 2016
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-4-17
- 最後登錄
- 2020-7-16
|
製指定 C檔位有檔名之檔案
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
再麻煩... |
|
發表於 2011-12-21 11:09
| 
