Функция для удаления папки с файлами.

 

Синтаксис

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"): Скрипт выполнен успешно.

 

Ещё посмотреть

mLogScript

Created with the Personal Edition of HelpNDoc: Create iPhone web-based documentation