MyTetra Share
Делитесь знаниями!
Как удалить все файлы из папки (VBA)
16.03.2019
23:43
Текстовые метки: vba,Kill,удаление
Раздел: !Закладки - VBA - FSO

Как удалить все файлы из папки (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.52
Яндекс индекс цитирования