Foros del web, para los que viven de bits

bueno necesito generar un patch que se autoincremente por lo menos de uno en uno

prueba.txt

prueba1txt
prueba2.txt
prueba3.txt

asi continuamente

lo unico que tengo la idea de guardar es

Dim VarTexto As String
Dim memoria As String
Dim cont, r As Integer

Text2 = ""
cont = 0



Open txtRuta For Input As #1

Do Until EOF(1)
Line Input #1, VarTexto
Text2 = Text2 & VarTexto & vbCrLf
memoria = VarTexto & vbCrLf
cont = cont + 1
txtCont = cont

'Line Input #fn, nombreleido

If cont <= 5 Then
'aca grabamos el archivo completo
Dim nfile As Integer
nfile = FreeFile


Open App.Path & "\prueba.txt" For Output As #nfile
Print #nfile, Text2.Text
Close #nfile
Else
'cont = 0
r = r + 1

End If


Loop
Close #1
'---------------------------------------------------


lo que necesito modificar es esto


Open App.Path & "\prueba.txt" For Output As #nfile

ejemplo

Open App.Path & "\prueba+numero+.txt" For Output As #nfile

pero como ???

Creo que no leiste mi respuesta anterior a tu pregunta sobre este asunto.

Puedes utilizar la variable 'cont' para ello:

Dim MiFile As String
MiFile = App.Path & "\prueba" & cont & ".txt"
Open MiFile For Output As #nfile

valeee loco ya lo prove y funciono , igual encontre otra forma

olle tienes idea como ler lineas de un txt (solo tomar la linea y anexarla al siguiente txt

Open txtRuta For Input As #1

Do Until EOF(1)
Line Input #1, VarTexto
List1.Text = Text2 & VarTexto & vbCrLf

cont = cont + 1
txtCont = cont


If cont <= 5 Then

Dim nfile As Integer
nfile = FreeFile

Open App.Path & "\prueba" & r & ".txt" For Output As #nfile
Write #nfile, VarTexto & vbCrLf
Close #nfile
Else
cont = 0

End If

Loop
Close #1

No lees lo que se te indica?

Vuelve al primer post que pusiste y ahí tienes la solución!

si si lo ise me funciona genia asi que no digas que no ago lo que pones aparte estoy haciendo un monton de datos y cada cambio tambien puede venir distinto ahora estoy con un dilema para el patch

tengo que colocarle fecha y la ruta

de conde vino es decir

fernando.txt

hola.txt

dfdsfdsfsdfsdfsdfdsfsdf.txt

123456789999.txt

a lo que tengo que ver como ingreso al patch nuevamente


Open patch & "c:\" & conta & ".txt" For Append As #nfile

'----------------------------------------------------

lo que necesito algo como

Open patch & "c:\" &nombre &""&fecha&""& conta & ".txt" For Append As #1

sin embargo el error tengo si es un string estan las "", y si tomo el nombre como saco el txt ,,, asi que mmmmmmmmmmm