Hej Hans
Prøv nedenstående:
Uses ShellApi;
function PFUCopyFile(FromPath, ToPath, FileName:String; FilesOnly:Boolean):Boolean;
var FOS: TSHFileOpStruct;
begin
if Copy(FromPath,Length(FromPath),1)<>'\' then FromPath:=FromPath+'\';
if Copy(ToPath,Length(ToPath),1)<>'\' then ToPath:=ToPath+'\';
Result:=False;
with FOS do begin
wFunc := FO_COPY;
pFrom := PChar(FromPath+FileName+#0);
pTo := PChar(ToPath);
if FilesOnly then
fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_FILESONLY or FOF_MULTIDESTFILES or
FOF_NOCONFIRMMKDIR
else
fFlags := FOF_NOCONFIRMATION or FOF_SILENT or FOF_MULTIDESTFILES or FOF_NOCONFIRMMKDIR;
end;
Try
if SHFileOperation(FOS)=0 then Result:=True;
except end;
end;
P.L.
"Hans Nikolajsen" <hn1@stofanet.dk> skrev i en meddelelse
news:3b62bf44$0$3246$ba624c82@nntp01.dk.telia.net...
> Ja dav.
>
>
> Hvordan kopier jeg et dir. med under-dir og filer til en anden Hd'er.
>
> Svarene til gode gamle DOS kommando ( XCOPY c:\test\ *.*/s d:\) ???
>
>
>
> Hvordan sletter jeg et dir med under-dir og filer.
>
> Svarene til gode gamle DOS kommando (deltree /Y C:\Test) ???
>
> --
> M.v.h.
> Hans Nikolajsen
> E-mail: hn1@stofanet.dk
> Homepage:
http://home1.stofanet.dk/jadav/
>
>
>
>