標題: [發問] 資料夾覆製檔案問題尋問 [打印本頁]

---

作者: rouber590324    時間: 2017-2-14 13:12     標題: 資料夾覆製檔案問題尋問

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

---

作者: PKKO    時間: 2017-2-15 08:40

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

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

複製代碼

---

作者: rouber590324    時間: 2017-2-15 10:06

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)