[發問] 資料夾覆製檔案問題尋問

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2017-2-14 13:12 | 只看該作者

DEAR ALL 大大
1 有無辦法寫VBA將 A資料夾內ALL檔案自動COPY至 B資料夾
1.1 A資料夾內檔案形式 .XLS .DOC .JPG ....都有.
2 煩不吝賜教 THANKS*10000

羅

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

3^#

發表於 2017-2-15 10:06 | 只看該作者

DEAR PKKO 大大
100%符合需求 THANKS*10000

羅

　暱稱: PKKO

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2017-2-15 08:40 | 只看該作者

回復 1# rouber590324
試試看,可以不刪除資料夾直接覆蓋即可

Sub test()
floderName = "C:\Users\user\Downloads\新增資料夾"
Backup_floderName = "C:\Users\user\Downloads\新增資料夾2"
If Dir(floderName, 16) = "" Then MsgBox "無此資料夾": Exit Sub
'If Dir(Backup_floderName, 16) <> "" Then Shell "c:\windows\system32\cmd.exe /c rd ""C:\Users\user\Downloads\新增資料夾2""/s/q", vbHide '此行為刪除資料夾程式碼
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder floderName, Backup_floderName, True '複製資料夾(覆蓋)
End Sub

複製代碼

PKKO

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。