https://foro.gambas-es.org/viewtopic.php?f=1&t=1681&p=9806#p9806
-----------------------------------
ivanovichenco
Sabado, 18 Junio 2011, 17:55

Cargar Al Azar Textos En Un Textarea
-----------------------------------
Tengo una carpeta en el proyecto donde hay cuatro archivos de texto. 1.text, 2.text......
Como hago para cargarlos al azar en un textarea?

PUBLIC SUB Form_Open()
DIM TEXTO AS File

TextArea1.Text = TEXTO.Load("Textos/" & Int(Rnd(1, 5)) & ".txt")

END
ó 
DIM TEXTO AS File

TextArea1.Text = TEXTO.READ("Textos/" & Int(Rnd(1, 5)) & ".txt")

END
No me funciona.


