Guardar .txt con nombre aleatorio (¿random?)

[ubetor^^]

Necesito hacer que una aplicación guarde ficheros .txt con un nombre al azar, de manera que nunca se creen 2 .txt´s con el mismo nombre. Tengo este code:

Código [Seleccionar] Expandir

Open ("nombre_al_azar.txt") For Output As #1

Utilicé la función random para otras cosas pero nunca para esto  Me vale también si el nombre del difchero están compuesto por un número...lo único que se me ocurre es crear un variable que vaya creciendo según el timer...pero nosé si estaría correcto 


De antemano gracias, y salu2 para los miembros del foro

[SheKeL_C$]

Personalizalo a tu gusto.

Código [Seleccionar] Expandir

vuelve:
Randomize                           'nuero aleatorio
azar = Int(Rnd * 2) + 1         ' azar es o 1 o 2
If Dir("C:\" & azar & ".txt") <> "" Then 'comprueba si existe, si existe va a vuelve y si no existe se crear y coloca dentro su numero
    GoTo vuelve
Else
    Open "C:\" & azar & ".txt" For Append As #1
    Print #1, azar
    Close #1
End If

[Hendrix]

Aki te dejo una funcion que genera nombres aleatorios...la hice hace no muchos dias:

Código [Seleccionar] Expandir

Public Function Palabraaleatoria(longitud As Integer) As String
Dim buffer As String

For i = 1 To longitud
buffer = Int((122 - 97 + 1) * Rnd) + 97
Palabraaleatoria = Palabraaleatoria & Chr(buffer)
Next
End Function

Y luego se usaria asi:

Código [Seleccionar] Expandir

msgbox palabraaleatoria (3)

Donde el 3 es la longitud de la palabra aleatoria.

Salu2

[ubetor^^]

Bien, gracias por los codes, me funcionan de maravilla. Esto último ya es un capricho de mi aplicación: Resulta que después de haber creado el archivo necesito que lo suba a mi FTP, y no se como hacer referencia al nombre aleatorio:

Código [Seleccionar] Expandir

"PUT palabraleatoria.txt " & "palabraleatoria.txt"

Se supone que apartir de PUT ya no importa lo que pongas porque VB lo va coger como simple texto no?? 

[Hendrix]

Al nombre aleatorio lo pones dentro de una variable y lo subes asi:

Código [Seleccionar] Expandir

"PUT " & varaible & ".txt " & varaible & ".txt "

Salu2

[vivachapas]

HOLA! SOY BASTANTE NUEVO EN ESTO... SOLAMENTE SE LO BASICO, MUCHO DE LO CUAL LO APRENDI LEYENDO EL FORO.
QUERIA SABER SI ALGUIEN ME AYUDABA A ENTENDER ESTOS CODIGOS... YO QUISIERA SABER COMO GENERAR UN ARCHIVO EN BV UN .txt CON LOS CODIGOS ANTERIORES PUDE LOGRAR HACER UNO CON NOMBRE jaja PERO NO LOGRO PONERLE CONTENIDO ADENTRO, OSEA, CUANDO ABRO EL ARCHIVO APARECE EN BLANCO....
TODO LO Q HICE ES UN CommandButton AL CUAL LE PUSE EL SIGUIENTE CODIGO:
Private Sub Command1_Click()
Open "C:\Documents and Settings\Usuario Final\Escritorio\jaja.txt" For Append As #1
End Sub

DESDE YA MUCHAS GRACIAS