Hi Viktor,
Please be so kind to revise an updated function below:
HB_FUNC( ISDISK )
{
BOOL fResult = FALSE;
char * szDrive = hb_parc( 1 );
if( szDrive )
{
if( *szDrive >= 'A' && *szDrive <= 'Z' )
fResult = hb_fsIsDrv( *szDrive - 'A' - 1 );
else if( *szDrive >= 'a' && *szDrive <= 'z' )
fResult = hb_fsIsDrv( *szDrive - 'a' - 1 );
}
hb_retl( fResult );
}
? IsDisk( "C" ) -> .T.
? IsDisk( "c" ) -> .T.
--
Regards,
Grigory Filatov
Viktor Szakáts wrote:
>
> Hi Grigory,
>
> It's not right, but I can't see why. Was it okay before this change? [
> I've
> never used this function. ]
>
> Here's the change:
> https://apps.sourceforge.net/trac/harbour-project/changeset/10186
>
> http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/source/rtl/dirdrive.c?view=log
> http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/source/rtl/filesys.c?view=log
>
> Brgds,
> Viktor
>
--
View this message in context:
http://www.nabble.com/ISDISK%28%29-issues-tp22371305p22379991.html
Sent from the Harbour - Dev mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
