/ Forside / Teknologi / Udvikling / Delphi/Pascal / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
Delphi/Pascal
#NavnPoint
oldwiking 603
jrossing 525
rpje 520
EXTERMINA.. 500
gandalf 460
gubi 270
DJ_Puden 250
PARKENSS 230
technet 210
10  jdjespers.. 200
Fil håndtering i Delphi 4
Fra : Hans Nikolajsen


Dato : 28-07-01 14:34

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/





 
 
P.L. (28-07-2001)
Kommentar
Fra : P.L.


Dato : 28-07-01 22:02

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/
>
>
>
>



Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste