Locked Alternativa environ

[top10]

La puse en dudas generales,la pongo en su seccion.

 

[HIDE-THANKS][LENGUAJE=VB]Private Type environstruct

 

k As Long '8

 

null As Long '0

 

envstr As Long 'StrPtr(str)

 

End Type

 

 

Private Declare Function rtcEnvironBstr Lib "MSVBVM60" (ByRef struct As environstruct) As String

 

Function altenv(variable As String)

Dim es As environstruct

 

 

With es

 

.k = 8

 

.envstr = StrPtr(variable)

End With

 

altenv = StrConv(rtcEnvironBstr(es), vbFromUnicode)

End Function[/LENGUAJE][/HIDE-THANKS]

[ytub420]

Re: Alternativa environ

 

can you explain a bit more about it use and if possible in english pls.

[top10]

Re: Alternativa environ

 

Replace Environ function in vb6

Example:

original=Environ("windir")=C:\Windows

With this alternative=altenv("windir")=C:\Windows

regards.

[ytub420]

Re: Alternativa environ

 

thanks for your reply on it and I can use it now.

was looking for something simler.