String problem

[Marc Vanzegbroeck]

Hi,

Does enyone know why I get twice the same result.

Code: Select all

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

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

[Marc Vanzegbroeck]

Thanks Antonio, it's working fine now.

Regards,
Marc