Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить группу папок с префиксом
 
#1
26.03.2015 17:06:24
В  "путь " лежат папки с префиксом 000. Как описать их удаление? Нашел исправно рабочий макрос. В пути как то надо указать "000"  &  *
Код
Sub Delete()
 Dim sPathToRemove$

sPathToRemove = "путь"
Shell "cmd /c rd /S/Q """ & sPathToRemove & """" 
End Sub
 
 
 
#2
26.03.2015 17:27:24
можно так
Код
Sub PathDel()
    'надо подключить библиотеку Microsoft Scripting Runtime
    Dim fso As New FileSystemObject
    Dim f As Folder

    For Each f In fso.GetFolder("путь").SubFolders
        If f.Name Like "00*" Then f.Delete
    Next f
End Sub
 
 
 
#3
26.03.2015 17:31:06
или без подключения библиотеки:
Код
Sub PathDel()
    Dim fso, f
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    For Each f In fso.GetFolder(ThisWorkbook.Path).SubFolders
        If f.Name Like "00*" Then f.Delete
    Next f
End Sub
 
 
 
#4
28.03.2015 15:57:14
Спасибо , ваше решение мне помогло
 
 
 
Страницы: 1
Наверх