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 |