Автоматизация удаления файлов

Используя средства VBA, можно удалять как отдельные файлы, так и группы файлов в соответствии с заданными параметрами.

Чтобы удалить отдельный файл, можно воспользоваться следующим макросом (листинг 3.49).

Листинг 3.49. Удаление файла

Sub DeleteFile()

Kill «C:Документыprimer.xls»

End Sub

В результате выполнения данного макроса будет удален файл primer.xls, расположенный по адресу С: Документы.

Для удаления группы файлов с определенным расширением можно использовать следующий макрос (листинг 3.50).

Листинг 3.50. Удаление группы файлов

Sub DeleteFiles()

' Удаление всех файлов с расширением XLS из заданной папки

Kill «C:Документы» & «*.xls»

End Sub

После выполнения этого макроса из папки Документы на диске С: будут удалены все файлы, имеющие расширение XLS.

При удалении файлов с помощью приведенных макросов следует учитывать, что они не помещаются в Корзину, а окончательно удаляются с жесткого диска.