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