03032008239

- sprawdzenie wielkości pliku w bajtach. Chcąc sprawdzić wielkość kilku plików moina zsumować Je przy użyciu pętli Do. Loop, np.:

Dim plik As Strtng Dim suma As Long

plik ^m Diii” 4:\*. *”) 'pliki : rozszonsuitm 411. lub wszystkis pliki DirC 4\ •. ^k)

suma ■ 0

Do Miii*plik o ^mm

suma ■ suma ♦ HI*Lm("4.1" d plik)

plik ■ Dir

Loop

Dabug. Phnt “Suma bajtów ■" «ft suma ‘drukowanit w okol* nsirttkcj* bazposrednie sgBox *Suma bajtów •• A suma