Witam!
Mam procedurkę do sprawdzania wielkości pliku. Chciałem zrobić za pomocą Filelistbox aby zliczał mi sumę plików z jakiejś ścieżki podanej do tego komponentu i tą sume aby przedstawiał w Label.
procedure TForm1.Timer1Timer(Sender: TObject);
var
Plik : TSearchRec;
FSize,sys,zestaw,stat : Integer;
const // sciezka do programu
Sciezka ='plik.txt';
begin
if FindFirst(Sciezka, faAnyFile, Plik) = 0 then
FSize:= PLik.Size else FSize:=0;
FindClose(PLik);
I teraz tam gdzie jest Sciezka to musze podać ścieżkę danego folderu, w którym są pliki do zsumowania. Hmm próbowałem dać np. Sciezka='e:\Folder*.*'
ale głównie chodzi mi aby zliczał wielkość plików które sa wyświetlone w Filelistbox.
Nie za bardzo mi to wychodzi zatem prosiłym o skorygowanie błędu. Dzięki!!!