How find free disk space? (SOLVED)

	Bottom Previous Topic Next Topic
Register To Post

ChrisH

Posted on: 2011/8/28 9:33 #1

Home away from home

Can anyone give me any hints on how I can make a program to find out free disk space (and perhaps total disk size)?

Edited by ChrisH on 2011/8/28 21:59:31

Author of the PortablE programming language.

TSK

Re: How find free disk space?

Posted on: 2011/8/28 12:17 #2

Just can't stay away

@ChrisH


struct InfoData *data=0;

BPTR lo=0;



data=IDOS->AllocDosObject(DOS_INFODATA,TAG_DONE);

if (data!=0)

{

 lo=IDOS->Lock("<volume_name>",ACCESS_READ);

 if (lo!=0)

 {

  if (IDOS->Info(lo,data))

  {

   // data->id_NumBlocksUsed /* Number of block in use */

   // data->id_NumBlocks /* Number of blocks on disk */

   // data->id_BytesPerBlock

  }

  IDOS->UnLock(lo);

 }

 IDOS->FreeDosObject(DOS_INFODATA,data);

}

Rock lobster bit me - so I'm here forever
X1000 + AmigaOS 4.1 FE
"Anyone can build a fast CPU. The trick is to build a fast system." - Seymour Cray

ChrisH

Re: How find free disk space?

Posted on: 2011/8/28 21:54 #3

Home away from home

@TSK
Thanks, that's a lot easier than I was expecting. I should have remembered the AmigaDos "Info" command, and then looked to see if it has a direct function call equivalent (which seems to happen for quite a few commands).

Author of the PortablE programming language.

ChrisH

Re: How find free disk space?

Posted on: 2011/8/28 23:00 #4

Home away from home

@TSK
I've converted your code into PortablE, in case anyone is interested:


MODULE 'dos'



PROC main()

    DEF data:PTR TO infodata, lock:BPTR

    lock := NIL

    

    IF lock := Lock('your_volume_name:', ACCESS_READ)

        IF data := AllocDosObject(DOS_INFODATA, NILA)

            IF Info(lock, data)

                Print('size = \\d MB\\n', data.numblocks !!BIGVALUE * data.bytesperblock / 1024 / 1024 !!VALUE)

                Print('free = \\d MB\\n', (data.numblocks - data.numblocksused) !!BIGVALUE * data.bytesperblock / 1024 / 1024 !!VALUE)

            ENDIF

            FreeDosObject(DOS_INFODATA, data)

        ENDIF

        UnLock(lock)

    ENDIF

ENDPROC

The BIGVALUE & VALUE casts are there so that it can handle sizes above 2GB.

BTW, I find this code rather nicer to read than the C equivalent, but maybe that's just me

EDIT: Added a missing FreeDosObject() call.

Edited by ChrisH on 2011/8/29 14:05:04

Author of the PortablE programming language.

Register To Post
	Top Previous Topic Next Topic

Currently Active Users Viewing This Thread: 1 ( 0 members and 1 Anonymous Users )