Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal LpBuffer As String) As Long

    Dim nBufferLength As Long
    Dim LpBuffer As String
    Dim CaminoPath As String
    nBufferLength = 255
    LpBuffer = String$(255, 32)
    X = GetTempPath(nBufferLength, LpBuffer)
    If X <> 0 Then
        CaminoPath = Left$(LpBuffer, X)
    End If

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)