[delphi] kopiowanie plików *.txt

Jak skopiować wszystkie pliki *.txt z katalogu, w którym znajduje się program do ścieżki określonej w polu edit1? Pilnie potrzebuję pomocy! Z góry dzięki za help!:cheesy:

Helios

---

To będzie jakoś tak:
copyfile(PChar('Plik do skopiowania'), PChar(edit1.text), true)

----------------
Kamil Wajda
GG:4498354

Skopiowanie pliku

procedure FileCopy(FIn,FOut : String);
var
Buf: array[1..4096] of Byte;
NumRecsRead: Integer;
InFile,OutFile : file;
Begin
AssignFile(InFile, FIn);
AssignFile(OutFile, FOut);
Reset(InFile,1);
Rewrite(OutFile,1);

while not Eof(InFile) do
begin
BlockRead(InFile, Buf, SizeOf(Buf), NumRecsRead);
BlockWrite(OutFile, Buf, NumRecsRead);
end;

CloseFile(InFile);
CloseFile(OutFile);
end;

------------------------------------------------------------------------

CopyFile(Plik_do_skopiowania,plik_do_ktorego_kopiujsze,false lub true);

Jeśli ostatni parametr będzie true, to jeśli kopiowany plik istnieje w miejscu docelowym, funkcja zwróci zero, jeśli false zamieni plik.

-----------------------
Bełdzio
Delphi Rules:)
www : http://www.beldzio.prv.pl
mail: beldzio@gazeta.pl

Oferty pracy, współpracy, oferty matrymonialne, albo jak chcesz sobie Gadu-Gadu 3183960

Dobra, to rozumiem, ale chodzi mi o coś, co odczyta katalog, w którym znajduje się program (aby program działał tak samo znajdując się w różnych lokalizacjach), następnie wybierze z tego katalogu wszystkie pliki z danym rozszerzeniem (w moim wypadku *.txt) i skopiuje je do katalogu określonego w edit1 i nie wiem,jak to zrobić:)

Helios

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

zsf.htw.pl