kopiowanie

0

czy ktoś z grupowiczów byłby wstanie pomóc mi w napisaniu formy (procedury), która ma za zadanie przekopiować wszystkie pliki danego typu (np *.txt) z danego folderu na dyskietkę , a proces przedstawić na progressbar'ze

:-P ZDROWYCH I SPOKOJNYCH SWIĄT BOŻEGO NARODZENIA
ORAZ WSZELKIEJ POMYSLNOŚCI W NOWYM 2003 ROKU :-P

0

No to tak:

var
R:TSearchRec;
Szukaj,Ile:integer;
begin
Szukaj:=FindFirst('.txt',FaAnyFile,R); // Szuka pierwszego pliku .txt
while Szukaj=0 do
begin
Ile:=Ile+1; // Zlicz pliki .txt
Szukaj:=FindNext(R); // Szuka następnego
end;
ProgramBar1.Max:=ile;
Szukaj:=FindFirst('
.txt',FaAnyFile,R);
while Szukaj=0 do
begin
CopyFile(R.Name,'A:'+R.Name,True); // Kopiuje z dysku na dyskietkę
ProgresBar1.SetpBy(1); // dodaje pozycję do progresa
Szukaj:=FindNext(R); // Szuka następnego
end;

end.

Tyle.
A tylko nie testowałem kodu więc niewiem czy działa ,ale powinien :-)

0

Sorry poprawka:

CopyFile(PChar(R.Name), Pchar('A:'+R.Name) ,True);

[hurra]

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0