Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить папку со всем содержимым
 
#1
28.07.2017 10:33:15
Добрый день! Подскажите, как удалить папку со всем содержимым. Перепробовала кучу способов, но ни один не работает. Прилагаю макрос, с помощью которого удаляю файлы, а как его переделать под удаление папки не пойму

Код
Sub KillDir()
    Dim sDirName As String
 
    sDirName = "C:\Рабочий стол\Папка для удаления" ' для удаления файла добавляю имя файла
 
    If Dir(sDirName, 16) = "" Then MsgBox "Нет такой папки", vbCritical, "Ошибка": Exit Sub
 
    Kill sDirName
End Sub
.
 
 
 
#2
28.07.2017 10:45:11
Почитайте справку по RmDir
Я сам - дурнее всякого примера! ...
 
 
 
#3
28.07.2017 10:46:47
gerbera, добрый день) ИМХО в названии темы не хватает "VBA" или "макросом", а то решение кажется донельзя очевидным)))
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#4
28.07.2017 11:02:31
Что-то типа этого!
Код
Sub test()
On Error Resume Next
With Application.FileDialog(msoFileDialogFolderPicker)
    If .Show = -1 Then RmDir (.SelectedItems(1))
End With
End Sub
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#5
28.07.2017 11:11:48
Спасибо, но мне нужно прописать адрес конкретной папки как в моем примере.
 
 
 
#6
28.07.2017 11:37:28
Так это еще проще
Код
RmDir("C:\Рабочий стол\Папка для удаления")
Изменено: Nordheim - 28.07.2017 11:38:02
"Все гениальное просто, а все простое гениально!!!"
 
 
 
#7
28.07.2017 11:53:07
Так RmDir работает только если папка пустая, а если с содержимым...
 
 
 
#8
28.07.2017 11:55:59
Как туго-то.. Сначала очищаете папку(kill) потом удаляете. Что еще неясно?
Я сам - дурнее всякого примера! ...
 
 
 
#9
28.07.2017 11:59:42
Цитата
kuklp написал:
Как туго-то..
Держись, братишка.
:D  
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#10
28.07.2017 12:00:21
Можно и проще:
Код
Dim sPathToRemove As string
sPathToRemove = "C:\Папка для удаления"
Shell "cmd /c rd /S/Q """ & sPathToRemove & """"
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#11
28.07.2017 12:11:39
The_Prist,  Спасибо, все работает! Очень выручили!
 
 
 
#12
10.10.2023 15:27:33
Как также макросом переместить папку в другую папку с именем "Корзина" без запросов?
Изменено: abutov - 10.10.2023 17:10:35
 
 
 
#13
10.10.2023 17:59:13
abutov, https://ab57.ru/cmdlist/move.html
 
 
 
#14
10.10.2023 19:02:18
FSO.MoveFolder
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
Страницы: 1
Читают тему
Наверх