AAAAAAAAAAAA me habia olvidado de environ, Pasa q hace 6 meses q no toco vb y algunas cosasme aprecen chino XD. ahora leo todo las opciones que me dijeron y en un rato contesto.
mucas gracias!
mucas gracias!
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Option Explicit
Private Declare Function GetWindowsDirectory _
Lib "kernel32" Alias "GetWindowsDirectoryA" ( _
ByVal lpBuffer As String, _
ByVal nSize As Long) _
As Long
Private Function GetWinDir() As String
Dim Temp As String * 256
Dim x As Integer
x = GetWindowsDirectory(Temp, Len(Temp)) ' Make API Call (Temp will hold return value)
GetWinDir = Left$(Temp, x) ' Trim Buffer and return string
End Function