TempFiles

Dim TempPath As String
Dim NomeFile As String
Dim nChar As Long
Dim nFile As Long
TempPath = String(256, 0)
NomeFile = String(256, 0)
nChar = GetTempPath(TempPath, Len(TempPath))
If nChar > 0 Then nFile = GetTempFileName(TempPath, "VB", 0, NomeFile)
If nFile > 0 Then NomeFile = Left(NomeFile, Instr(NomeFile, vbNullChar) - 1)