Crear archivos txt y "free file()"
Hola! Tengo un problema con el siguiente código, no es lo que quiero...
Private Sub CommandButton1_Click()
Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
fileNumber = FreeFile()
Open "C:\TEST" & count & ".TXT" For Output As #1
Close #1
Next
End Sub
El problema es que cuando hago click en el botón se crean 5 archivos .txt a la vez con los nombres test1, test2, test3, test4 y test5. ¿Sabéis la forma de que al hacer click solo cree un archivo (test1), y al volver a hacer click cree otro (test2) y así sucesivamente? Tal vez solo sea una modificación en el código de arriba, no lo se. Espero vuestra ayuda!
Private Sub CommandButton1_Click()
Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
fileNumber = FreeFile()
Open "C:\TEST" & count & ".TXT" For Output As #1
Close #1
Next
End Sub
El problema es que cuando hago click en el botón se crean 5 archivos .txt a la vez con los nombres test1, test2, test3, test4 y test5. ¿Sabéis la forma de que al hacer click solo cree un archivo (test1), y al volver a hacer click cree otro (test2) y así sucesivamente? Tal vez solo sea una modificación en el código de arriba, no lo se. Espero vuestra ayuda!
1 Respuesta
Respuesta de flopstech
1
