Как удалить папку, в которой находятся файлы?
В VB6 есть функция RmDir(), которая должна удалять папки, но она вызывает ошибку, если в папке хотя бы один файл.
Следующая функция удалит папку и ее содержимое:
Function FolderKill(Path$)
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder (Path)
End Function
Dim FSO As Object: Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder (Path)
End Function
Функция взята из модуля FSO Examples, в котором содержатся все функции по работе с файловой системой! Его можно скачать в разделе «Исходники».
Оригинальная статья Влада Рубцова. https://vladikcomper.scanf.su/