Функция для удаления папки с файлами.
function DeleteFolder(const sFolderName:string; bRecursive: boolean): integer;
Параметр |
Тип |
Значение |
---|---|---|
sFolderName |
string |
полный путь к папке, которую следует удалить; |
bRecursive |
boolean |
рекурсивное удаление содержимого вложенных папок. Если false, то непустые папки удаляться не будут. |
Результат |
Значение |
---|---|
0 |
всё Ок, папка успешно удалена; |
-1 |
название папки для удаления не может быть пустым; |
-2 |
папка не существует; |
-3 |
не удалось удалить папку. |
const
FOLDER_NAME = 'c:\temp\logs\today reports\';
var
iResult: integer;
s: string;
begin
iResult := DeleteFolder(FOLDER_NAME, true);
case iResult of
0: s := 'all ok, folder deleted';
-1: s := 'folder name cannot be empty';
-2: s := 'folder does not exist';
-3: s := 'error deleting folder';
end;
mLogScript(s, '');
end.
[18:41:36] (Log "DeleteFolder"): all ok, folder deleted
[18:41:36] (Run "DeleteFolder"): Время выполнения скрипта: 3 мс
[18:41:36] (Run "DeleteFolder"): Скрипт выполнен успешно.