How can i check if a disk is in A: without a message error
windows appearing when A: is empty ?
How can i check if a disk is protected or not ?
Thanks.

! DISKSPACE without a disk in drive returns wrong value.
! Before using DISKSPACE check drive with DISKREADY.

Andreas Wei?, Germany

You can try FT_FLOPTST(), a new function in nanforum lib.

Hope this help

Didier CAPDEVIELLE
Comite Technique Permanent du Reseau SIBIL France

-ISDRIVE.PRG---------------------------------------------------------------

#include "Common.Ch"

/*  $DOC$
 *  $FUNCNAME$
 *      IsDrive()
 *  $CATEGORY$
 *      Environment
 *  $ONELINER$
 *      Check to see if a drive exists.
 *  $SYNTAX$
 *      IsDrive( [<ncDrive>] ) --> lExists
 *  $ARGUMENTS$
 *      <ncDrive> is an optional numeric or character parameter that is
 *      the ID of the drive to check. The drive can be the character
 *      values A-Z or the numeric values 0-25 (0 = A:, 1 = B:, ...).
 *      If not supplied the "current drive" is checked.
 *  $RETURNS$
 *      .T. if the drive exists, .F. if not.
 *  $DESCRIPTION$
 *      IsDrive() can be used to check if a drive exists, this also
 *      includes been able to check if a disk is in a floppy drive.
 *  $EXAMPLES$
 *      ? IsDrive( "A:" )     // Test for A:
 *      ? IsDrive( "A" )      // Same
 *      ? isDrive( "Allo!" )  // Same again, only the first character
 *                            // is used.
 *      ? IsDrive( 0 )        // Same again using a numeric.
 *  $SEEALSO$
 *
 *  $END$
 */

Function IsDrive( ncDrive )
Local nFile
Local lDrive

   Do Case
      Case ISCHARACTER( ncDrive )
         If isalpha( ncDrive )
            nFile := fopen( left( ncDrive, 1 ) + ":\NUL" )
         Else
            nFile := fopen( "NUL" )
         EndIf
      Case ISNUMBER( ncDrive )
         If ncDrive >= 0 .And. ncDrive <= 25
            nFile := fopen( chr( 65 + ncDrive ) + ":\NUL" )
         Else
            nFile := fopen( "NUL" )
         EndIf
      Otherwise
         nFile := fopen( "NUL" )
   EndCase

   lDrive := ( ferror() == 0 )

   fclose( nFile )

Return( lDrive )

-ISDRIVE.PRG---------------------------------------------------------------

--
Take a look in Hagbard's World: |     w3ng - The WWW Norton Guide reader.
http://www.acemake.com/hagbard  |  ng2html - The NG to HTML converter.
For pgp public key send mail to |       eg - Norton Guide reader for OS/2.

+-
| Here is one that works for me, hope it helps.
|
| -ISDRIVE.PRG---------------------------------------------------------------
|[snip]
|       Case ISCHARACTER( ncDrive )
|          If isalpha( ncDrive )
|             nFile := fopen( left( ncDrive, 1 ) + ":\NUL" )
|          Else
|             nFile := fopen( "NUL" )
|          EndIf
|       Case ISNUMBER( ncDrive )
|          If ncDrive >= 0 .And. ncDrive <= 25
|             nFile := fopen( chr( 65 + ncDrive ) + ":\NUL" )
|          Else
|             nFile := fopen( "NUL" )
|          EndIf
+-[DP=>All]

Oh come one Dave, it couldn't have been more than two weeks ago that we were
all talking about NOT using the NUL device as it doesn't work on some
network configs... <g>

Try this in C instead:

        #include "extend.api"

        extern int __cdecl _tisdrv (unsigned nDrive);

        CLIPPER IsDrive(void)
        {
           int nDrive;

           if (ISCHAR(1) && _parclen (1)) {
              char * cDrivePtr = _parc (1);

              nDrive = *cDrivePtr - 65 -
                       (*cDrivePtr >= 'a' && *cDrivePtr <= 'z' ? 32 : 0);

           } else if (ISNUMERIC (1)) {
              nDrive = _parni (1);

           } else {
              _retl (FALSE);
              return;
           }

           return (_tisdrv (nDrive) == 0);      // 0 returned if valid
        }

Much better... ;-)

DrDebug

 . DBMR v1.00 . MrDebug - Simply the Best

+----------------------------------+--------------------------------------+

|    The Dark Knight Returns BBS   | MrDebug product support:             |

|      and MrDebug for Windows     | Fax&BBS:          +44 (0)1480 471465 |
|(MrDebug: THE CA-Clipper de{*filter*})|     Tel:          +44 (0)1480 403104 |
+----------------------------------+--------------------------------------+

+-
| > Oh come one Dave, it couldn't have been more than two weeks ago that we were
| > all talking about NOT using the NUL device as it doesn't work on some
| > network configs... <g>
|
| *FLOPPY* drive Ian, the guy was asking about a *Floppy* drive. Also, that
| discussion was about checking for directories. The function I gave was for
| checking if a drive was there. I've yet to see a config that pretends
| that a drive is there when it isn't.
+-[DP=>ID]

Yes, and you gave him an ISDRIVE() function!!!  And you were in total
agreement that different configs don't agree... <g>

Having a nice day are we?... ;-)

DrDebug

 . DBMR v1.00 . I want to be a MrDebug Developer when I grow up

+----------------------------------+--------------------------------------+

|    The Dark Knight Returns BBS   | MrDebug product support:             |

|      and MrDebug for Windows     | Fax&BBS:          +44 (0)1480 471465 |
|(MrDebug: THE CA-Clipper de{*filter*})|     Tel:          +44 (0)1480 403104 |
+----------------------------------+--------------------------------------+

--
Take a look in Hagbard's World: |     w3ng - The WWW Norton Guide reader.
http://www.acemake.com/hagbard  |  ng2html - The NG to HTML converter.
For pgp public key send mail to |       eg - Norton Guide reader for OS/2.

Anyway, I prefer your version, it's in the one true language. :-)

--
Take a look in Hagbard's World: |     w3ng - The WWW Norton Guide reader.
http://www.acemake.com/hagbard  |  ng2html - The NG to HTML converter.
For pgp public key send mail to |       eg - Norton Guide reader for OS/2.

<< Ok, I'll repeat it again, NUL is bad for directories, NUL is good for
drives. I've yet to find the NUL trick to fail for drives (but I'm
sure someone out there can make it fail). >>

For those out there willing to test this (not me :); does it work for
RAM-drives ? And for drive B: when there's just one floppy drive in the
system ?

Inquiring minds want to know :)

Anne.

So, with all those functions together, you should be just about covered.

--
Take a look in Hagbard's World: |     w3ng - The WWW Norton Guide reader.
http://www.acemake.com/hagbard  |  ng2html - The NG to HTML converter.
For pgp public key send mail to |       eg - Norton Guide reader for OS/2.

+-
| > Yes, and you gave him an ISDRIVE() function!!!  And you were in total
| > agreement that different configs don't agree... <g>
|
| Ok, I'll repeat it again, NUL is bad for directories, NUL is good for
| drives. I've yet to find the NUL trick to fail for drives (but I'm
| sure someone out there can make it fail).
+-[DP=>ID]

Mmmm, I'll take you're word for it.

+-
| Anyway, I prefer your version, it's in the one true language. :-)
+-[DP=>ID]

Ahhh, now I can rest in peace... ;-)

+-
| > Having a nice day are we?... ;-)
|
| Every day is a nice day. <g>
+-[DP=>ID]

No, at the moment, every day is a hot and sticky one.  And it's going to get
hotter....

DrDebug

 . DBMR v1.00 . MrDebug - Simply the Best

+----------------------------------+--------------------------------------+

|    The Dark Knight Returns BBS   | MrDebug product support:             |

|      and MrDebug for Windows     | Fax&BBS:          +44 (0)1480 471465 |
|(MrDebug: THE CA-Clipper de{*filter*})|     Tel:          +44 (0)1480 403104 |
+----------------------------------+--------------------------------------+

Maurice.