ABC Tools

browser utilities

Swedish computers preservation workspace — disk convert, decode, and archive browse

Retro Preservation Workspace

Monitorn

Browse archived Monitorn möten and the ABC80 mailing list, with full-text and text-number search.

← Back to ABC Tools

Meetings · ABC800 · Thread

Storlek på viss fil

3 posts in thread

Valter Pettersson <2008> · Text 3885 · w8 · inlagg

1986-06-06 13:33

Ärende: Storlek på viss fil

Jag behöver ett basicprogram som ger mig storleken på en viss fil på en diskett (ABC832/ABC834). Indata är alltså ett visst filnamn i en strängvariabel, och jag vill ha tillbaka den filens storlek i sektorer i en numerisk variabel. Finns kanske redan på programbanken. Jag är inte så hemma på det där att läsa systemdata på disketter mm. Kan någon hjälpa mig? Tel 0753-552 28. Rosenstigen 11 144 00 RÖNNINGE.
- Nils Wendel <1372> · Text 3887 · w8 · kommentar
  
  1986-06-06 21:30
  
  Ärende: Storlek på viss fil
  
  Ett sätt att läsa filens storlek är följande: OPEN "filnamn" AS FILE nn Storlek=PEEK2(64778)+1 CLOSE nn
  - Karl Lindström <837> · Text 3900 · w8 · kommentar
    
    1986-06-08 22:52
    
    Ärende: Storlek på viss fil
    
    Det fungerar dock inte på alla dos, utan förmodligen bara på UFD-dos. Då är följande bättre: 10 DEF FNFilstorlek(fil¤) local nr 20 OPEN Fil¤ AS FILE 69 ! Fult filnummer 30 ON ERROR GOTO 90 40 WHILE EC=0 50 Nr=Nr+1 60 GET #1 Block¤ COUNT 253 70 WEND 80 RETURN Nr ! Nr är alltid 1 mer än fysiskt längd pga RIB 90 Ec=ERRCODE 100 RESUME 110 FNEND Dick är rutien slö, speciellt på längre filer. Då är det bättre att göra den i assembler.