¡Por favor, dame el código VB detallado!

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, ¿eres 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

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

Puede agregarlas usted mismo

. Limpiar el disco duro es fácil: simplemente elimínelo