Mensaje enviado por "Miguel Cid" <miguel@segurycontrol.com>

> ¿Alguien tiene una función para generar un nombre de archivo aleatorio y
> único? Sería para crear archivos temporales.

Hola Pablo. Existe una API que crea archivos temporales.Se llama GetTempFileName. Su declaración es

Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long


'Con esta simple rutina se crea un archivo temporal

Dim miarchivo As String
Dim x As Long

miarchivo = String(260, 0)
x = GetTempFileName("C:\", "ARC", 0, miarchivo)
miarchivo = Left$(miarchivo, InStr(1, miarchivo, Chr$(0)) - 1)



PARAMETROS:

1) Directorio donde se creará el archivo
2) Las primeras tres letras del nombre del archivo temporal
3) Si su valor es 0 crea archivos temporales, cada uno con un nombre distinto. Si su valor es mayor a cero no crea el archivo temporal, solo devuelve un nombre de archivo compuesto con las tres letras del segundo parámetro + el numero indicado en hexadecimal y con la extensión TMP .


Espero que esto te sirva de algo.Por cierto si quieres mas información de las APIs visita esta página http://www.allapi.net es muy interesante (lástima que todo sea en inglés).

Un saludo