String problem

[Marc Vanzegbroeck]

Hi,

Does enyone know why I get twice the same result.

Code: Select all  Expand view  RUN

FUNCTION test()
   local cValue := Space( 256 )
   GetEnvironmentVariable( "USERPROFILE", cValue, Len( cValue ) )
   cValue=alltrim(cValue)
   MsgInfo(cValue)
   cValue+='\Test'
   MsgInfo(cValue)
RETURN


Thanks,
Marc

[Antonio Linares]

Marc,

Do it this way:

Code: Select all  Expand view  RUN

FUNCTION test()
   local cValue := GetEnv( "USERPROFILE" )
   cValue+='\Test'
   MsgInfo(cValue)
RETURN


[Marc Vanzegbroeck]

Thanks Antonio, it's working fine now.

Regards,
Marc