22/07/2005, 09:09
|
 | Moderador | | Fecha de Ingreso: abril-2005 Ubicación: In this planet
Mensajes: 15.720
Antigüedad: 20 años Puntos: 839 | |
Cita:
Iniciado por iccamilo porfavor..Gracias Copia esto en un modulo:
Código:
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function GetWinDir() As String
Dim Buffer As String, Size As Long
Const MAX_PATH = 260
Buffer = String(MAX_PATH, 0)
Size = GetWindowsDirectory(Buffer, Len(Buffer) - 1)
If Size <> 0 Then
GetWinDir = Left(Buffer, Size)
End If
End Function
|