MyChat Scripts: функция CopyFile, скопировать файл из одной папки в другую

MyChat Scripts: функция CopyFile, скопировать файл из одной папки в другую

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

 

Синтаксис

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

 

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

Параметр

Тип

Значение

sFileFrom

string

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

sFileTo

string

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

bRewrite

boolean

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

 

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

Результат

Значение

0

всё Ок, функция отработала успешно;

-1

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

-2

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

-3

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

 

Пример

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

Результат работы скрипта

[15:49:45] (Log "CopyFile"): Copying file "c:\temp\readme.txt" to "c:\temp\textfiles\oldfile.txt"

[15:49:45] (Log "CopyFile"): source file does not exist

[15:49:45] (Run "CopyFile"): Время выполнения скрипта: 7 мс

[15:49:45] (Run "CopyFile"): Скрипт выполнен успешно.

 

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

mLogScript