Удалить папку с именем MyFolderName, расположенную в той же папке, в которой расположен файл формата .xls с VBA-кодом (ThisWorkbook.Path) или на диске C:
Public Const folderName As String = "MyFolderName"
Sub DeleteFolder(ws As Worksheet, AutocreateFolders As Boolean)
folderPath = ws.Parent.Path & Application.PathSeparator & folderName 'присвоен путь
'другой вариант - с диска C:
'folderPath = 'c:' & Application.PathSeparator & folderName
If AutocreateFolders Then 'удаляется при условии AutocreateFolders = True
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderexists(folderPath) Then 'проверка, что папка существует
fs.DeleteFolder (folderPath)
End If
End If
End Sub
См. принимаемые значения переменных, включая ThisWorkbook.Path, с помощью Окна Immediate,
например:
