Перенести файл из одной папки в другую с удалением оригинала. Исходная и результирующая папки должны существовать.
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.