Копирование файла

[Killbrum]

Доброго времени суток! Уважаемые у меня к вам вопрос. Как скопировать файл? Кроме как CopyFile. В моем случае он не работает. Большое спасибо

Просто надо передать файл в другую папку

CopyFile(PChar(GetCurrentDir+'blablabla.exe'),PChar(GetCurrentDir+'Data\Item\blablabla.exe'),true);

Что тут я зделал не так?

[mihali4]

Из моего справочника, выложенного на форуме для свободного скачивания:

Копирование файла разными методами

Вот простенький пример:

procedure TForm2.Button2Click(Sender: TObject);
var s,t: TFileStream;
begin
s:=TFileStream.Create('D:\Full_DB_C onvert_Enterprise_v2.12.rar',fmOpen Read);
try
t:=TFileStream.Create('C:\Full_DB_C onvert_Enterprise_v2.12.rar',fmOpen Write or fmCreate);
try
t.CopyFrom(s,s.Size);
finally
t.Free;
end;
finally
s.Free;
end;
end;

*********************************** **********************************

А вот еще кучка методов:

Копирование методом TurboPascal

Type
TCallBack=procedure (Position,Size:Longint); {Для индикации процесса копирования}
procedure FastFileCopy(Const InfileName, OutFileName: String; CallBack: TCallBack);
Const BufSize = 3*4*4096; { 48Kbytes дает прекрасный результат }
Type
PBuffer = ^TBuffer;
TBuffer = array [1..BufSize] of Byte;
var
Size : integer;
Buffer : PBuffer;
infile, outfile : File;
SizeDone,SizeFile: Longint;
begin
if (InFileName <> OutFileName) then
begin
buffer := Nil;
AssignFile(infile, InFileName);
System.Reset(infile, 1);
try
SizeFile := FileSize(infile);
AssignFile(outfile, OutFileName);
System.Rewrite(outfile, 1);
try
SizeDone := 0; New(Buffer);
repeat
BlockRead(infile, Buffer^, BufSize, Size);
Inc(SizeDone, Size);
CallBack(SizeDone, SizeFile);
BlockWrite(outfile,Buffer^, Size)
until Size < BufSize;
FileSetDate(TFileRec(outfile).Handl e,
FileGetDate(TFileRec(infile).Handle ));
finally
if Buffer <> Nil then Dispose(Buffer);
System.close(outfile)
end;
finally
System.close(infile);
end;
end else
Raise EInOutError.Create('File cannot be copied into itself');
end;

Копирование методом потока

Procedure FileCopy(Const SourceFileName, TargetFileName: String);
Var
S,T : TFileStream;
Begin
S := TFileStream.Create(sourcefilename, fmOpenRead );
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size ) ;
FileSetDate(T.Handle, FileGetDate(S.Handle));
finally
T.Free;
end;
finally
S.Free;
end;
end;

Копирование методом LZExpand

uses LZExpand;

procedure CopyFile(FromFileName, ToFileName : string);
var
FromFile, ToFile: File;
begin
AssignFile(FromFile, FromFileName);
AssignFile(ToFile, ToFileName);
Reset(FromFile);
try
Rewrite(ToFile);
try
if LZCopy(TFileRec(FromFile).Handle, TFileRec(ToFile).Handle)<0 then
raise Exception.Create('Error using LZCopy')
finally
CloseFile(ToFile);
end;
finally
CloseFile(FromFile);
end;
end;

Копирование методами Windows

uses ShellApi; // !!! важно

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
F.Wnd := 0; F.wFunc := FO_COPY;
FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
result:=ShFileOperation(F) = 0;
end;

// пример копирования
procedure TForm1.Button1Click(Sender: TObject);
begin
if not WindowsCopyFile('C:\UTIL\ARJ.EXE', GetCurrentDir) then
ShowMessage('Copy Failed');
end;

[Killbrum]

Большое спасибо!

[Somebody]

Сообщение от Killbrum

Что тут я зделал не так?

Результат GetCurrentDir без слеша в конце

[injhdc]

Killbrum Если не умеешь пользоваться Debuger, создай 2 переменные и заполни их тем что ты пытаешься передать функции копирования.. и выведи каждую переменную простой функцией MessageBox так будешь видеть что у тебя делается в этих переменных

[cemen13]

Всем привет! помогите мне нужно копировать файлы из директорий но не все а последние. Заранее все сп-бо!

[Snoopy]

Функция FileAge возвращает дату создания файла, выбирайте последние и копируйте.

[cemen13]

Сп-бо попробую!

да еще забыл сказать файлы с разными именами и в разных директориях

[Snoopy]

function p(ss:string):TStringList;
var
sr:TSearchRec;
R:word;
S:TStringList;
begin
ChDir(ss);
S:=TStringList.Create;
R := FindFirst ('*.txt',faAnyFile,sr);
  While r=0 do
          Begin
         if FileDateToDateTime(FileAge(ss+Sr.Name))<>Now then
            begin
              R:=FindNext(sr);
              S.Add(Sr.Name);
            end;
         end;
Result:=S;
end;

[cemen13]

а куда же она все эти файлы скопировала где смотреть?