|
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) Alcune volte si ha bisogno di un file temporaneo da distruggere al termine del suo utilizzo e si ricorre alla generazione di nomi piu' o meno statici, che potrebbero pero' generare problemi in ambienti multiutente. In questi casi la cosa migliore e' di ottenere un nome di file univoco da creare nella directory temporanea di Windows con un prefisso proprio in modo da identificarlo correttamente anche in seguito. Ecco come fare utilizzando le funzione GetTempPath e GetTempFileName delle API: |