SUB main() a&% = GetSBFSize&%("allfiles") ? &9.0;a&% END SUB FUNCTION GetSBFSize&%(f$) DIM fd$(40),d AS DiskFile FILLARRAY fd$,5,f$ + ".*" FOR i%% = 0 TO 40 fd$ = fd$(i%%) IF fd$ <> "" THEN et$ = FN ext(fd$) doit%% = IF (et$ LIKE ".sb[df]",1,0) doit%% = IF (et$ LIKE ".[1-9]",1,doit%%) doit%% = IF (et$ LIKE ".[1-4][0-9]",1,doit%%) IF doit%% THEN d = fd$ GetSBFSize&% = GetSBFSize&% + d.Size END IF ELSE i%% = 999 END IF NEXT i%% END FUNCTION