Kopiere filer

gå på http://borrisholt.com under file IO der finder du en dims der kan !

Jens B

Copyfiles() kan ikke lide netværksnavne af typen \\\\server\\folder
og jeg vil undgå at skulle mappe network drives

uses shellapi

function CopyAllFiles(sFrom, sTo: string; Protect: boolean): boolean;
{ Copies files or directory to another directory. }
var
F: TShFileOpStruct;
ResultVal: integer;
tmp1, tmp2: string;
begin
FillChar(F, SizeOf(F), #0);
Screen.Cursor := crHourGlass;
try
F.Wnd := 0;
F.wFunc := FO_COPY;
tmp1 := sFrom + #0;
tmp2 := sTo + #0;
F.pFrom := PChar(tmp1);
F.pTo := PChar(tmp2);

if Protect then
F.fFlags := FOF_RENAMEONCOLLISION or FOF_SIMPLEPROGRESS
else
F.fFlags := FOF_SIMPLEPROGRESS;

F.fAnyOperationsAborted := False;
F.hNameMappings := nil;
Resultval := ShFileOperation(F);
Result := (ResultVal = 0);
finally
Screen.Cursor := crDefault;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  CopyAllFiles(\'\\\\Server2\\folder2\\*.*\', \'\\\\Server\\folder\\\'
,false)

end;

Stoney