como crear archivo datx00, datx01,........, datxXX por cada toma de muestras

[edomeneses]

Hola, les cuento estoy tomando datos de un acelerometro y los muestro en un grafico (en VB6) cada eje por separado. a la vez almaceno los codigos en archivos de texto como describo a continuacion todo esto sucede al presionar el boton de inicio de transmicion de datos.
                Open "datx.txt" For Output As 1           ' crea archivo de texto para grabar códigos
                Open "daty.txt" For Output As 2
                Open "datz.txt" For Output As 3
                 .
                 .
                Print #1, X 'Almaceno datos de cada eje
                Print #2, Y
                Print #3, Z

La pregunta es la siguiente: ¿Como puedo hacer para que cada vez que aprete el boton de transmicion de datos pueda ca,biar el nombre del archivo guardado, por ejemplo datx01, luego, datx02, y asi consecutivamente, a cada toma de muestras identificarla con un numero?
de antemano muchas gracias 

[PalitroqueZ]

la forma mas fácil es con un contador, que se irá incrementando ante la creación de cada archivo y que iras guardando en otro txt para que no pierda la secuencia en caso de cerrar el programa.

[edomeneses]

disculpa la ignorancia, entieno lo que me dices pero no se como llebarlo a codigo?????

[edomeneses]

he avansado en algo ya mi from tiene botones para iniciar y detener la toma de muestras
he asociado a uno de los botones una variable k( la cual es almacenada en un archivo de esa forma saber cual fue el numero anterior del archivo guardado), reviso el archivo para saber cual fue la ultima k guardada, luego a aumento en uno, cierro el archivo numk, y lo abro esta vez con "Append" para poder escribir al fnal del archivo, luego doy el numero k al archivo de la nueva toma de muestras.

el problema es que me marca error en "Line Input #1, F"

Código: [Seleccionar]

Option Explicit ' obliga a declarar las variables
     Public F As String
     Public k As Long

Private Sub Command1_Click()
     Open "numk.txt" For Input As #1    'en el archivo numk.txt se almacena el valor de k
     Do
        Line Input #1, F                          'leo el archivo numk
     
     Loop While Not EOF(1)
     
          k = F + 1                    'el ultimo valor de k aumentado en 1
          Close 1
          Text5.Text = Val(k)
 
     Open "numk.txt" For Append As #2       'de esta forma se debiera de abrir nuevamente el archivo para almacenar el nuevo valor de k que da e numero del archivo
          Print #2, k
          Close 2
   
    Open "datx" & k & ".txt" For Output As 3  'con esta estructura se crea el archivo datxk.txt, (datx0.txt,.......)
'
'


[manuelroin24]

por que simplemente no agregas un textbox y que en ese textbox le vas aumentando el numero y para darle el numero a tu archivo a generar obtienes el numero del textbox