Dim fso
  Set fso = CreateObject("Scripting.FileSystemObject")
  sTempPath = fso.GetSpecialFolder(2)