Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как удалить группу папок с префиксом
 
В  "путь " лежат папки с префиксом 000. Как описать их удаление? Нашел исправно рабочий макрос. В пути как то надо указать "000"  &  *
Код
Sub Delete()
 Dim sPathToRemove$

sPathToRemove = "путь"
Shell "cmd /c rd /S/Q """ & sPathToRemove & """" 
End Sub
 
можно так
Код
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
 
или без подключения библиотеки:
Код
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
 
Спасибо , ваше решение мне помогло
Страницы: 1
Читают тему (гостей: 1)