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

Kako da kopiram fajlove?

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

[ Pregleda: 2732 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Burgos
Nemanja Borić
Amazon Web Services
Berlin

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

Sajt: stackoverflow.com/users/1..


+477 Profil

icon Kako da kopiram fajlove?06.05.2005. u 17:35 - pre 197 meseci
Treba mi kod koji će kopirati sve fajlove i iz poddirektorijuma, u poddirektorijume.
 
Odgovor na temu

mzarko

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



Profil

icon Re: Kako da kopiram fajlove?06.05.2005. u 18:55 - pre 197 meseci
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;
 
Odgovor na temu

Burgos
Nemanja Borić
Amazon Web Services
Berlin

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

Sajt: stackoverflow.com/users/1..


+477 Profil

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

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

 
Odgovor na temu

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

[ Pregleda: 2732 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

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