🚀 go-pugleaf

"Martin C" <martincplus@hotmail.com> wrote in message
news:40bbd229@newsgroups.borland.com...

> I am using the code below to retrieve the free diskspace
> of my hard drive, but I really don't know how to format
> the output to something like for example  55.57 GB.

I prefer something like the following approach myself:

    #define KILOBYTE        (1024*1)
    #define MEGABYTE    (1024*KILOBYTE)
    #define GIGABYTE    (1024*MEGABYTE)
    #define TERABYTE    (1024*GIGABYTE)

    AnsiString __fastcall FormatSize(unsigned __int64 Size)
    {
        if( Size < KILOBYTE )
            return AnsiString(Size) + " B";

        else if( Size < MEGABYTE )
            return FormatFloat("###0.00' KB'", Size / KILOBYTE);

        else if( Size < GIGABYTE )
            return FormatFloat("###0.00' MB'", Size / MEGABYTE);

        else if( Size < TERABYTE )
            return FormatFloat("###0.00' GB'", Size / GIGABYTE);

        else
            return FormatFloat("###0.00' TB'", Size / TERABYTE);
    }

Then it can be called like this:

    ULARGE_INTEGER fbatc = {0};
    if( ::GetDiskFreeSpaceEx(Path.c_str(), &fbatc, NULL, NULL) )
        ShowMessage(FormatSize(fbatc.QuadPart));

Or alternatively:

    ShowMessage(DiskFree('C'));


Gambit