Visual Basic 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.