- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
回復 5# ziv976688
煩請再補充移除清空後的各資料夾之第3個需求。
>> 新增1列如紅字，謝謝
'搬移檔案
For i = 1 To n
Set f = fs.GetFolder(Ar(i, 1))
Set fc = f.SubFolders
For Each f1 In fc
If f1.Path = NewFolder Then GoTo 99
FName1 = f1.Path: FName2 = NewFolder & "\" & f1.Name
fs.MoveFolder FName1, FName2
99: Next f1
If Ar(i, 1) <> NewFolder Then fs.DeleteFolder Ar(i, 1)
Next i
|
|
發表於 2021-10-19 08:07
| 
