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
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 :-)
Sorry poprawka:
CopyFile(PChar(R.Name), Pchar('A:'+R.Name) ,True);
[hurra]