novaBBS - comp.lang.xharbour - The function Hb

The function Hb_DiskSpace() does not work

<1d9947fb-09c3-40b2-95c0-5cc372cc4c5cn@googlegroups.com>

https://www.novabbs.com/devel/article-flat.php?id=10866&group=comp.lang.xharbour#10866

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:620a:29cf:b0:759:82c:1f2c with SMTP id s15-20020a05620a29cf00b00759082c1f2cmr21988qkp.15.1684465164957;
Thu, 18 May 2023 19:59:24 -0700 (PDT)
X-Received: by 2002:a05:6870:5b33:b0:196:4b9:369 with SMTP id
ds51-20020a0568705b3300b0019604b90369mr238887oab.5.1684465164646; Thu, 18 May
2023 19:59:24 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!feeder1.feed.usenet.farm!feed.usenet.farm!peer01.ams4!peer.am4.highwinds-media.com!peer03.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Thu, 18 May 2023 19:59:24 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2804:17bc:15d:cb00:4901:e8f:ac9d:6c3b;
posting-account=yZJwlQoAAADzKZZdom395T93hGRZPX0-
NNTP-Posting-Host: 2804:17bc:15d:cb00:4901:e8f:ac9d:6c3b
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <1d9947fb-09c3-40b2-95c0-5cc372cc4c5cn@googlegroups.com>
Subject: The function Hb_DiskSpace() does not work
From: reinald...@gmail.com (reina...@gmail.com)
Injection-Date: Fri, 19 May 2023 02:59:24 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1837

by: reina...@gmail.com - Fri, 19 May 2023 02:59 UTC

Hi all,

// ---------------------------------------------------------------------------------------------//
#include "Fileio.ch"

PROCEDURE Main
LOCAL cDrive, i, bError := ErrorBlock( {|e| Break(e) } )

FOR i:=1 TO 26
cDrive := Chr(64+i)
? cDrive+":"
BEGIN SEQUENCE
?? HB_DiskSpace( cDrive, HB_DISK_FREE ), ;
HB_DiskSpace( cDrive, HB_DISK_TOTAL)
RECOVER
?? " not ready or not existent"
END SEQUENCE
NEXT

ErrorBlock( bError )
RETURN
// ------------------------------------------------------------------------------------//

Thanks,

Reynaldo Henrique

Re: The function Hb_DiskSpace() does not work

<u47jq5$lajt$1@dont-email.me>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=10867&group=comp.lang.xharbour#10867

copy link Newsgroups: comp.lang.xharbour

Path: i2pn2.org!i2pn.org!eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: e.m.gior...@emagsoftware.it (Enrico Maria Giordano)
Newsgroups: comp.lang.xharbour
Subject: Re: The function Hb_DiskSpace() does not work
Date: Fri, 19 May 2023 12:42:14 +0200
Organization: A noiseless patient Spider
Lines: 30
Message-ID: <u47jq5$lajt$1@dont-email.me>
References: <1d9947fb-09c3-40b2-95c0-5cc372cc4c5cn@googlegroups.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 19 May 2023 10:42:13 -0000 (UTC)
Injection-Info: dont-email.me; posting-host="5fd640631d31ab8ac7c303256759b317";
logging-data="699005"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX19ib6R6cM8mG07d3uZO81jL"
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:102.0) Gecko/20100101
Thunderbird/102.11.0
Cancel-Lock: sha1:f0w9uI1RR10YMMsw1MLr0nW0/mE=
In-Reply-To: <1d9947fb-09c3-40b2-95c0-5cc372cc4c5cn@googlegroups.com>

by: Enrico Maria Giordan - Fri, 19 May 2023 10:42 UTC

The colon is required:

#include "Fileio.ch"

PROCEDURE Main
LOCAL cDrive, i, bError := ErrorBlock( {|e| Break(e) } )

FOR i:=1 TO 26
cDrive := Chr(64+i)+":"
? cDrive
BEGIN SEQUENCE
?? HB_DiskSpace( cDrive, HB_DISK_FREE ), ;
HB_DiskSpace( cDrive, HB_DISK_TOTAL)
RECOVER
?? " not ready or not existent"
END SEQUENCE
NEXT

ErrorBlock( bError )

RETURN

--
Enrico Maria Giordano

http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

Re: The function Hb_DiskSpace() does not work

<7e483d94-b790-4e84-8b31-1b30399061c0n@googlegroups.com>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=10869&group=comp.lang.xharbour#10869

copy link Newsgroups: comp.lang.xharbour

X-Received: by 2002:a05:6214:1841:b0:623:8a4e:52c6 with SMTP id d1-20020a056214184100b006238a4e52c6mr655781qvy.9.1684531315459;
Fri, 19 May 2023 14:21:55 -0700 (PDT)
X-Received: by 2002:aca:a8c8:0:b0:389:6b0e:9d99 with SMTP id
r191-20020acaa8c8000000b003896b0e9d99mr727262oie.0.1684531315206; Fri, 19 May
2023 14:21:55 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!newsfeed.hasname.com!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.xharbour
Date: Fri, 19 May 2023 14:21:54 -0700 (PDT)
In-Reply-To: <u47jq5$lajt$1@dont-email.me>
Injection-Info: google-groups.googlegroups.com; posting-host=2804:17bc:169:4000:546f:c286:a42a:d32e;
posting-account=yZJwlQoAAADzKZZdom395T93hGRZPX0-
NNTP-Posting-Host: 2804:17bc:169:4000:546f:c286:a42a:d32e
References: <1d9947fb-09c3-40b2-95c0-5cc372cc4c5cn@googlegroups.com> <u47jq5$lajt$1@dont-email.me>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <7e483d94-b790-4e84-8b31-1b30399061c0n@googlegroups.com>
Subject: Re: The function Hb_DiskSpace() does not work
From: reinald...@gmail.com (reina...@gmail.com)
Injection-Date: Fri, 19 May 2023 21:21:55 +0000
Content-Type: text/plain; charset="UTF-8"
X-Received-Bytes: 1307

by: reina...@gmail.com - Fri, 19 May 2023 21:21 UTC

Imitation is the sincerest form of plagiarism.

devel / comp.lang.xharbour / The function Hb_DiskSpace() does not work

Subject	Author
The function Hb_DiskSpace() does not work	reina...@gmail.com
The function Hb_DiskSpace() does not work	Enrico Maria Giordano
The function Hb_DiskSpace() does not work	reina...@gmail.com