Curdrive() & CurDir() Problems

[PeterHarmes]

Hi,

I know this isnt a FW issue, but has anyone experieced any problems using Curdrive() & CurDir() on Windows 2008 64bit server?

i assign a current drive variable using the following:

cFolder := Alltrim(CurDrive()) + ":\" + Alltrim(CurDir())

when running the app in the S:\IWS6 folder, the cFolder variable gets populated with :

@:\\server\apps\iws6

so it looks like curdrive() is returning @ instead of S and Curdir() is returning \server\apps\iws6 instead of iws6

Anyone else experienced this?

Thanks in advance

Pete

[StefanHaupt]

Peter,

here this sample is working fine with server 2008, x64

Code: Select all  Expand view

function Main()

  local cFolder := Alltrim(CurDrive()) + ":\" + Alltrim(CurDir())
  MsgInfo( cFolder )

return nil

[PeterHarmes]

Weird, i'm getting this on two different installations.

[StefanHaupt]

hmm, what kind of disk drive is s: ? local, network, virtual (with subst) ?

[PeterHarmes]

Network - weird thing is this was working ok on one installation last week, but it has never worked on other installation. AFAIK nothing has changed.

[StefanHaupt]

curious, my last tests with a network drive worked fine, same with "subst" drives.

Did you try my sample, did it work ? Sometimes it seems there is a difference calling functions from a big application or from a small sample. I can send you the compiled file, if you want.

[PeterHarmes]

I was thinking along the lines of compiling with xHarbour commercial - what are you using? If you are not using xHarbour commercial, send me a sample - i will create a small app that just displays curdrive() & curdir() too

[StefanHaupt]

I´m using xHarbour from xHarbour.org, not the commercial version. Here you can download my sample

http://www.fiveclasses.de/Getdir.zip

[PeterHarmes]

Thanks stefan,

I have sent it to my customer and i'll let you know the results

Best regards,

Pete

[PeterHarmes]

Your app works perfectly - recompiled your app using xHarbour commercial and it still worked!!

So the problem must be in my app somehow, i'm going to have to do some more tests with my app

Thanks for your help Stefan

Pete

[StefanHaupt]

my pleasure!

hope you´ll get it working

[PeterHarmes]

Stefan,

I'm not getting much help with this on the xHarbour forum - they have suggested that i remove FW and try, which i have and still get the problem.

I was wondering if i could send you my source code, could you compile the app using xHarbour from xHarbour.org and i could see if it is xHarbour commercial that is causing the problem?

email me at peterh at plsoft.co.uk and i will send you my code

best regards,

Pete

[Carles]

Hi,

use HB_CurDrive() instead curdrive()

[PeterHarmes]

I get unresolved external hb_curdrive()

i'm using commercial xHarbour dated May 2009

[Daniel Garcia-Gil]

Peter...

put at the end your main prg

Code: Select all  Expand view

#pragma BEGINDUMP
#include <windows.h>
#include <hbapi.h>
#include <hbapifs.h>

HB_FUNC( CURDRIVE )
{
   char szCurDrive[ 1 ];
   const char * szDrive;

   szCurDrive[ 0 ] = ( ( char ) hb_fsCurDrv() ) + 'A';
   hb_retclen( szCurDrive, 1 );
}

#pragma ENDDUMP