Sección de códigos , trucos y ejemplos para visual basic

399 - Directorio temporal de windows

Obtener mediante la función Environ de visual basic, la ruta del directorio temporal de windows del usuario actual

Código fuente

Option Explicit Private Sub Form_Load() MsgBox GetDirTemp, vbInformation End Sub ' retorna la Ruta ''''''''''''''''''' Function GetDirTemp() As String If Environ$("temp") <> vbNullString Then GetDirTemp = Environ$("tmp") End If End Function

Nota: la ruta del directorio Temp , se devuelve en formato de path corto, para pasarlo a path largo, se podria hacer de esta forma :

'Api GetLongPathName para convertir el path '''''''''''''''''''''''''''''''''''''''''''' Private Declare Function GetLongPathName Lib _ "kernel32.dll" _ Alias "GetLongPathNameA" ( _ ByVal lpszShortPath As String, _ ByVal lpszLongPath As String, _ ByVal cchBuffer As Long) As Long Private Sub Form_Load() MsgBox GetDirTemp, vbInformation End Sub ' retorna la Ruta ''''''''''''''''''' Function GetDirTemp() As String If Environ$("temp") <> vbNullString Then Dim Buffer As String Buffer = String(255, 0) ' buffer de caracteres para el retorno ' llamada a GetLongPathName para convertir Call GetLongPathName(Environ$("temp"), Buffer, 255) ' Retorno GetDirTemp = Replace(Buffer, Chr(0), vbNullString) End If End Function

Nota para obtener el directorio temporal de windows via Api, se utiliza la función GetTempPath

Recursos Visual basic 6.0 - Enlaces relacionados

Recursos Visual basic.NET - Enlaces relacionados

Crear archivo temporal con FileSystem.GetTempFileName

Buscar en Recursos vb