[Aporte] EnvironEx

[Dessa]

La constante pàra la carpeta de sistema seria &H25, lee la lista de Raul338 o el link de Xkis o todo el hilo  

[raul338]

Código (vb) [Seleccionar] Expandir


EnvironEx = Left$(str_Return$, InStr(1, str_Return$, Chr(0)) - 1)   '   //  Resto 1 para quitar el ultimo Chr(0).


Que eso no lo hace el Trim$ ? Lo de quitar el Chr(0) y lo que sigue ?
Lo de hacer una clase para esto seria algo exagerado, tal vez si incluimos otros metodos se aplicaria

Si no utiliza el indicador CSIDL_FLAG_CREATE:
si la carpeta no existe, la función de SHGetFolder devuelve S_FALSE y nada se coloca en el búfer de cadena.

Si.. habia leido eso, el problema es que nunca encontre las constantes de S_FALSE, E_FAIL y demas por lo que no los puse jeje

creo que CSIDL_SYSTEM

http://msdn.microsoft.com/en-us/library/bb762494%28v=VS.85%29.aspx

sisi yase, pero me devuelve numeros :/

que raro que te devuelva numeros, generalmente eso pasa cuando pedis Internet (IE), Panel de control, red, impresoras, etc

[BlackZeroX]

.

Segun lo siguiente deviste haber usado RTrim$() en lugar de Trim$()

Aqui Todos los Trim()...

Function Trim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function Trim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios iniciales y finales

Function RTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function RTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin espacios finales

Function LTrim$(String As String) As String
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

Function LTrim(String)
   Miembro de VBA.Strings
   Devuelve una copia de una cadena sin los espacios iniciales

* En Resumen solo quita los ESPACIOS no los Caracteres NULOS

Código (vb) [Seleccionar] Expandir



Option Explicit
Private Sub Form_Load()
Dim Str_Data$
Dim Str_Aux$
   Str_Data = Space$(200)
   Mid$(Str_Data$, 1, 11) = "BlackZeroX" & Chr(0)
MsgBox Strings.Len(Str_Data$)
   Str_Aux$ = Strings.Trim$(Str_Data$)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
   Str_Aux$ = Strings.Left$(Str_Data$, Strings.InStr(1, Str_Data$, Chr(0)) - 1)
MsgBox "caracter Nulo = " & Conversion.CBool(InStr(1, Str_Aux$, Chr(0), vbBinaryCompare) > 0) & vbCr & Strings.Len(Str_Aux$) & vbCr & Str_Aux$ & Chr(34)
End Sub



Dulce Infierno Lunar!¡.

[BlackZeroX]

.
Perdon no lei esto:

Lo de hacer una clase para esto seria algo exagerado, tal vez si incluimos otros metodos se aplicaria

Lo mensionaba para aprovechar el evento initializze y asi crear una ventana con CreateWindowExy el evento finalize para destruir dicha ventana, así jalarias un Hwnd VALIDO en su paramtro, aun que el Hwnd de otra ventana como el del explorer (El escritorio) me parece que tambien sería valido, aun mejor no nos complicamos y nos quedamos con &H0 te parece xP.

Dulces Lunas!¡.

[raul338]

un mejor no nos complicamos y nos quedamos con &H0 te parece xP.

Me parece la mejor opcion