copy files igen

Cranker > Nej det kan ikke passe fordi CopyFile som du kalder den bacerer sig på noget kode alla det jeg skrev ....

Jeg testede lige det følgende kode :

uses FileHandling;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyFiles(\'*.pas\',\'C:\\\');
end;


og det kopierer upåklageligt ....

Jens B

Kopier/slet/flyt/omdøb filer med Windows standarddialog:

var Fo      : TSHFileOpStruct; buffer  : array[0..4096] of char;
p      : pchar;begin  FillChar(Buffer, sizeof(Buffer), #0);  p := @buffer;
  p := StrECopy(p, \'C:\\DownLoad\\1.ZIP\') + 1;
  p := StrECopy(p, \'C:\\DownLoad\\2.ZIP\') + 1;
  p := StrECopy(p, \'C:\\DownLoad\\3.ZIP\') + 1;  StrECopy(p, \'C:\\DownLoad\\4.ZIP\');
  FillChar(Fo, sizeof(Fo), #0);  Fo.Wnd    := Handle;  Fo.wFunc  := FO_COPY;
  Fo.pFrom  := @Buffer;  Fo.pTo    := \'D:\\\';  Fo.fFlags := 0;
  if ((SHFileOperation(Fo) <> 0) or
      (Fo.fAnyOperationsAborted <> false)) then    ShowMessage(\'Cancelled\')end;

( HAR I SELV TESTET DET ENDNU)

M.V.H. ProDoc

hmm - jeg lukker