elnewbie
25 de Octubre del 2003

Hola.
Soy bastante novato y me gustaria saber como usar la funcion randomize para crear un archivo. Por ej quiero crear un archivo .txt en c:mis documentos con un nombre elegido aleatoriamente.
Les agradeceria que me pasen los comandos para poder hacerlo.
chauuu

Juan
25 de Octubre del 2003

Supongo que hay muchas formas de hacerlo. Aquí te
pongo una:

Private Sub Form_Click()
'Muestra una cadena aleatoria de 8 letras
' elegidas al azar entre "abcdefghijk"
MsgBox cadenaAleatoria("abcdefghijk", 8)
End Sub

Private Function cadenaAleatoria(ByVal letrasPosibles As String, ByVal longitud As Long) As String
Dim longitudPosibles As Long
Randomize Timer
longitudPosibles = Len(letrasPosibles)
If longitudPosibles > 0 Then
Do While longitud > 0
cadenaAleatoria = cadenaAleatoria & Mid$(letrasPosibles, (Rnd * longitudPosibles) + 1, 1)
longitud = longitud - 1
Loop
End If
End Function