- ©«¤l
- 976
- ¥DÃD
- 7
- ºëµØ
- 0
- ¿n¤À
- 1018
- ÂI¦W
- 0
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-4-19
- ³Ì«áµn¿ý
- 2024-10-30
|
¦^´_ 5# ziv976688
·Ð½Ð¦A¸É¥R²¾°£²MªÅ«áªº¦U¸ê®Æ§¨¤§²Ä3ӻݨD¡C
>> ·s¼W1¦C¦p¬õ¦r¡AÁÂÁÂ
'·h²¾ÀÉ®×
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
|
|