資料夾覆製檔案問題尋問 - Excel程式區

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

　暱稱: PKKO

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

1^# 跳轉到 »

發表於 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

靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。