TempDir

Function TempDir$()
Dim sTmp1$
sTmp1 = Environ$("temp")
While Right$(sTmp1, 1) = "\"
sTmp1 = Left$(sTmp1, Len(sTmp1) - 1)
Wend
If sTmp1 <> "" Then
On Error Resume Next
MkDir sTmp1
On Error Goto 0
End If
TempDir = sTmp1
End Function

'es.


CurTempDir$=TempDir