Цитата Iska:
Код:
For Each oI In cD
Select Case objFolder.Name
Case "Папка1", "Папка2", "Папка3"
' Ничего не делать
Case Else
DelOld oI.Path, iDays
If oI.Size = 0 Then oI.Delete
End Select
Next »
|
Так ...
А как сделать так , чтоб в этих
Case "Папка1", "Папка2", "Папка3" , данные удалялись ... а сами папки нет ?
