Private Declare Function GetTempPath Lib "kernel32.dll" _
  Alias "GetTempPathA" (ByVal nBufferLength As Long, _
  ByVal lpBuffer As String) As Long

  Dim sPath As String
  Dim nResult As Long
 
  sPath = Space$(260)
  nResult = GetTempPath(Len(sPath), sPath)
  MsgBox Left$(sPath, nResult)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de