Vale, ya está solucinado de la siguiente manera:
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")
Function CrearArchivoTemp
Dim tcarpeta, tnombre, tarchivo
Const CarpetaTemporal = 2
Set tcarpeta = fso.GetSpecialFolder(CarpetaTemporal)
tnombre = fso.GetTempName
Set tarchivo = tcarpeta.CreateTextFile(tnombre)
Set CrearArchivoTemp = tarchivo
End Function
Set archivoTemporal = CrearArchivoTemp
archivoTemporal.WriteLine "Hola a todos."
archivoTemporal.Close
La constante CarpetaTemporal puede tomar los siguientes valores:
0--> Para encontrar la carpeta de Windows que contiene los archivos instalados por el sistema operativo Windows.
1--> Para encontrar la carpeta System que contiene bibliotecas, fuentes y controladores de dispositivos.
2--> Para encontrar la carpeta Temp que se utiliza para almacenar archivos temporales. Su ruta se encuentra en la variable de entorno TMP.
Para más información entrar
aqui