MyChat Scripts Engine: MoveFile

MyChat Scripts Engine: MoveFile

Перенести файл из одной папки в другую с удалением оригинала. Исходная и результирующая папки должны существовать.

 

Синтаксис

function MoveFile(const sFileFrom, sFileTo: string; const bRewrite: boolean): integer;

 

Параметры и возвращаемые значения

Параметр

Тип

Значение

sFileFrom

string

имя исходного файла и полный путь к нему;

sFileTo

string

имя результирующего файла и полный путь к нему;

bRewrite

boolean

перезаписывать файл, если он уже существует в папке назначения.

 

Результат функции

Результат

Значение

0

всё Ок, файл успешно перенесён;

1

всё Ок, файл успешно перенесён и перезаписан в папке назначения;

-1

исходный файл или папка не существует;

-2

папка назначения не существует;

-3

результирующий файл уже существует, но флаг bRewrite=false и файл не перенесён;

-4

не удалось перенести файл. Например, он был занят в монопольном режиме другой программой, операционной системой или это файл на CD, который физически нельзя удалить либо записать.

 

Пример

const
  FILE_FROM = 'c:\temp\readme.txt';
  FILE_TO   = 'c:\temp\textfiles\oldfile.txt';
var
  iResult: integer;
  s: string;
begin
  mLogScript('Moving file "' + FILE_FROM + '" to "' + FILE_TO + '"', '');  
  iResult := MoveFile(FILE_FROM, FILE_TO, true);
  
    case iResult of
      0: s := 'all ok, file moved';
      1: s := 'all ok, file moved and rewritten';
     -1: s := 'source file does not exist';
     -2: s := 'destination folder does not exist';
     -3: s := 'destination file already exists, rewriteflag=false';
     -4: s := 'operation aborted';
    end;
    
  mLogScript(s, '');
end.

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

mLogScript