Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Kako da kopiram fajlove?

[es] :: Pascal / Delphi / Kylix :: Kako da kopiram fajlove?

[ Pregleda: 1124 | Odgovora: 2 ]

 Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Burgos
Zrenjanin

Član broj: 12484
Poruke: 1275
*.smin.sezampro.yu.

ICQ: 290190857
Sajt: www.last.fm/user/Burgos


Profil

icon Kako da kopiram fajlove?06.05.2005. u 17:35

Treba mi kod koji će kopirati sve fajlove i iz poddirektorijuma, u poddirektorijume.
Dejane, vrati se :)
06.05.2005. u 17:35 

mzarko

Član broj: 33636
Poruke: 76
*.ptt.yu.



Profil

icon Re: Kako da kopiram fajlove?06.05.2005. u 18:55
Nadam se da ti ovo moze pomoci.

uses
ShellApi;


function CopiaTodo(Origen,Destino : String) :
LongInt;
var
F : TShFileOpStruct;
sOrigen, sDestino : String;
begin
Result := 0;
sOrigen := Origen + #0;
sDestino := Destino + #0;

with F do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @sOrigen[1];
pTo := @sDestino[1];
fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION
end;

Result := ShFileOperation(F);
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
CopiaTodo('C:\Folder\New Folder\*.*','c:\CopyFolder\New Folder2\');
end;
06.05.2005. u 18:55 

Burgos
Zrenjanin

Član broj: 12484
Poruke: 1275
*.freeserbia.sezampro.yu.

ICQ: 290190857
Sajt: www.last.fm/user/Burgos


Profil

icon Re: Kako da kopiram fajlove?06.05.2005. u 19:38
Radi i moj (isti takav)

Problem je bio u tome sto mi se direktorijum zavrsavao sa '\'.

Dejane, vrati se :)
06.05.2005. u 19:38 

[es] :: Pascal / Delphi / Kylix :: Kako da kopiram fajlove?

[ Pregleda: 1124 | Odgovora: 2 ]

 Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.