Как удалить все файлы из папки (VBA)


'удаляет все файлы из папки
'DirPath - путь к папке без разделителя в конце пути
Sub CleanDir(DirPath As String)
  Dim AllFilesMask As String 'шаблон пути всех файлов

  AllFilesMask = DirPath & "\*.*"
  'проверяем наличие файлов, иначе при удалении возникнет ошибка
  If Len(Dir(AllFilesMask)) > 0 Then 'есть хотя бы один файл
      Kill AllFilesMask
    End If
  End If
End Sub
Реклама
Запись опубликована в рубрике программирование с метками , , . Добавьте в закладки постоянную ссылку.

Добавить комментарий

Заполните поля или щелкните по значку, чтобы оставить свой комментарий:

Логотип WordPress.com

Для комментария используется ваша учётная запись WordPress.com. Выход / Изменить )

Фотография Twitter

Для комментария используется ваша учётная запись Twitter. Выход / Изменить )

Фотография Facebook

Для комментария используется ваша учётная запись Facebook. Выход / Изменить )

Google+ photo

Для комментария используется ваша учётная запись Google+. Выход / Изменить )

Connecting to %s