MyTetra Share
Делитесь знаниями!
Как удалить все файлы из папки (VBA)
Время создания: 16.03.2019 23:43
Текстовые метки: Kill, удаление
Раздел: !Закладки - VBA - FSO
Запись: adgaver/mytetra_base_New/master/base/1523183990mtd2byc10s/text.html на raw.githubusercontent.com

Как удалить все файлы из папки (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


Так же в этом разделе:
 
MyTetra Share v.0.55
Яндекс индекс цитирования