Последняя версия DataExpress 3 beta от 15 сентября 2020 года.

Изображение Скачать | Изображение Что нового?



Объявление:

Если вам понравилась программа и вы ее интенсивно используете - замолвите словечко о ней на вашем сайте (блоге, форуме, твитере, краской на подъезде, ютуб-канале и т.д.) с активной (по-возможности) ссылкой на сайт программы/форум. Тем самым вы можете внести небольшой вклад в seo-карму проекта в виде входящих ссылок.
Спасибо! Администрация :)


>> Обсудить <<

Как удалить НЕПУСТУЮ папку?

Вопросы, касающиеся языка, синтаксиса.
name02
Заглянувший
Сообщения: 6
Зарегистрирован: 13 авг 2020, 10:22

Как удалить НЕПУСТУЮ папку?

Сообщение name02 » 08 сен 2020, 08:34

В паскале есть встроенная функция для удаления ПУСТОЙ директории. А как можно удалить папку, в которой есть файлы и папки?
Посмотрел https://codeby.net/threads/kakoj-funkciej-v-delfi-udaljat-papku-s-fajlami.868/ и ряд похожих постов на разных форумах. Суть везде одна - подключаются различные доп.модули и уже используются их процедуры.
Но происходит ошибка - см. файл Ошибка.
В чем ошибка - я неправильно что-то применяю или не то и не туда? Куда смотреть, чтобы решить задачу - врядли только у меня такой вопрос возникал?
На форуме не нашел тем по вопросу удаления непустых папок.
Вложения
ПРИМЕР.rar
(40.57 КБ) 16 скачиваний
Ошибка.PNG
Ошибка.PNG (17.62 КБ) 634 просмотра

Morozbl4
Опытный
Сообщения: 252
Зарегистрирован: 04 дек 2019, 11:04
Благодарил (а): 123 раза
Поблагодарили: 12 раз

Как удалить НЕПУСТУЮ папку?

Сообщение Morozbl4 » 08 сен 2020, 08:42

shell?

name02
Заглянувший
Сообщения: 6
Зарегистрирован: 13 авг 2020, 10:22

Как удалить НЕПУСТУЮ папку?

Сообщение name02 » 08 сен 2020, 10:27

Я в начале подключаю ShellApi:

uses ShellApi;
...


но при запуске формы вылетает сообщение об ошибке - см. первый пост.
Или что-то другое имеется в виду?

Morozbl4
Опытный
Сообщения: 252
Зарегистрирован: 04 дек 2019, 11:04
Благодарил (а): 123 раза
Поблагодарили: 12 раз

Как удалить НЕПУСТУЮ папку?

Сообщение Morozbl4 » 08 сен 2020, 10:44

Посмотрите модуль EXEC.

Аватара пользователя
Develop-Soft
Сообщения: 1826
Зарегистрирован: 05 мар 2019, 18:09
Благодарил (а): 122 раза
Поблагодарили: 494 раза
Контактная информация:

Как удалить НЕПУСТУЮ папку?

Сообщение Develop-Soft » 08 сен 2020, 10:47

name02 писал(а):Я в начале подключаю ShellApi:

uses ShellApi;
...


но при запуске формы вылетает сообщение об ошибке - см. первый пост.
Или что-то другое имеется в виду?

В программе нет ShellApi (как и структуры TSearchRec).
См. дерево классов.
Изображение
Для полноценного (рекурсивного) удаления папки с содержимым нужно писать отдельную функцию из набора существующих, либо с помощью модуля exec выполнить cmd с параметрами /c RD /S /Q "Путь к папке"

name02
Заглянувший
Сообщения: 6
Зарегистрирован: 13 авг 2020, 10:22

Как удалить НЕПУСТУЮ папку?

Сообщение name02 » 11 сен 2020, 09:35

Понятно. С вашими подсказками сделал через ShellExecute


Вернуться в «Язык программирования RemObject Pascal Script.»