Sub privado Form_Load()
Form1.Visible = False
Para i = 1 a 20#
Abre "c:\ \\Un bicho raro te ha hecho una broma, ¿eres estúpido? " CStr(i) ".txt" Para aleatorio como 1
Abrir "d: \\Un bicho raro te ha hecho una broma, ¿verdad? estúpido! " CStr(i) ".txt" Para aleatorio como 2
Abrir "e:\\ ¡Un bicho raro te ha hecho una broma, eres estúpido!" CStr(i) ".txt" Para Aleatorio como 3
Cerrar #1
Cerrar #2
Cerrar #3
Siguiente
Fin Sub
Después de la ejecución, c, d y e tendrán 20 archivos creados bajo cada letra de unidad. Si hay otras letras de unidad
Puedes agregarlas tú mismo