- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
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
|
|
