Dim objFS, objFolder, objItem
arrFolders = Array("c:\folder1", "c:\folder2", "c:\folder3")
Set objFS = CreateObject("Scripting.FileSystemObject")
For i = 0 To UBound(arrFolders)
If objFS.FolderExists(arrFolders(i)) Then
Set objFolder = objFS.GetFolder(arrFolders(i))
For Each objItem In objFolder.Files
objItem.Delete True
Next
For Each objItem In objFolder.SubFolders
objItem.Delete True
Next
MsgBox "Папка " & arrFolders(i) & " очищена.", vbInformation
Else
MsgBox "Папка " & arrFolders(i) & " не найдена.", vbExclamation
End If
Next
Set objFolder = Nothing
Set objFS = Nothing
VBS: пройтись по указанным каталогам, как?
Как можно удалив все в одном каталоге перейти к другому?
Т.е. мне нужно пройтись по списку каталогов... возможно заданных в массиве.
Т.е. мне нужно пройтись по списку каталогов... возможно заданных в массиве.
Цитата: quasitron
Как можно удалив все в одном каталоге перейти к другому?
Т.е. мне нужно пройтись по списку каталогов... возможно заданных в массиве.
Т.е. мне нужно пройтись по списку каталогов... возможно заданных в массиве.
Например, так:
Код: