CRIAR NOVO ARQUIVO TEXTO COM NUMERO DO ANTERIOR 1
Bom dia pessoa, tenho uma pasta que salvo um arquivo txt de remessa com nome RM000001.
gostaria que na proxima vez que gerasse o arquivo de remessa fosse com um numero sequencial. RM000002, RM000003.RM000004, RM000005 e assim por diante, alguém tem alguma ideoa de como faço?
gostaria que na proxima vez que gerasse o arquivo de remessa fosse com um numero sequencial. RM000002, RM000003.RM000004, RM000005 e assim por diante, alguém tem alguma ideoa de como faço?
Rapaz não consigo, coloca nessa rotina.
Dim Linha As String
Dim i As Integer
i = 0
Open App.Path & [Ô]\[Ô] & [Ô]PMI\RM000001.R[Ô] For Input As #1
Do While Not EOF(1)
Line Input #1, Linha
i = i + 1
Loop
total = i - 1
Close #1
fNum = FreeFile()
Open App.Path & [Ô]\[Ô] & [Ô]PMI\RM000001.R[Ô] For Append Shared As #fNum
Print #fNum, Tab(1); [Ô]099[Ô]; Tab(4); Format(total, [Ô]0000000000[Ô]) [ô]; Tab(13)
Close #fNum
Dim Linha As String
Dim i As Integer
i = 0
Open App.Path & [Ô]\[Ô] & [Ô]PMI\RM000001.R[Ô] For Input As #1
Do While Not EOF(1)
Line Input #1, Linha
i = i + 1
Loop
total = i - 1
Close #1
fNum = FreeFile()
Open App.Path & [Ô]\[Ô] & [Ô]PMI\RM000001.R[Ô] For Append Shared As #fNum
Print #fNum, Tab(1); [Ô]099[Ô]; Tab(4); Format(total, [Ô]0000000000[Ô]) [ô]; Tab(13)
Close #fNum
Tópico encerrado , respostas não são mais permitidas