返回列表 上一主題 發帖

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

tomking

帖子
34 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
WINDOWS10 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
註冊時間
2011-4-17 
最後登錄
2020-7-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-12-21 11:09 | 顯示全部帖子

製指定 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




再麻煩...
收藏 分享

tomking

帖子
34 
主題
10 
精華
0 
積分
56 
點名
0  
作業系統
WINDOWS10 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
註冊時間
2011-4-17 
最後登錄
2020-7-16 
2#
發表於 2011-12-22 16:27 | 顯示全部帖子
感謝版主

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

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題