Tekstfiles opslaan verhoogd met bv: nummers

[Pitje1958]

Zoals hieronder in de code zou ik willen dat als men tekstfile gevuld is deze wordt weggeschreven telkens als een teller een bepaalde waarde heeft. Hoe kan ik telkens de filenaam een nummer achteraan geven of datum zodat alle tekstfiles bijgehouden kunnen worden.

Do While Not EOF(2)
                lijn = LineInput(2)
                filenaam = lijn.Substring(23, 5)
                datum = lijn.Substring(29, 6)
                tijd = lijn.Substring(36, 4)
                seqnr(index) = lijn.Substring(76, 4)
                vinnummer = lijn.Substring(81, 7)
                txtSeqnr.Text = seqnr(index)
                txtVinnummer.Text = vinnummer
                txtDatum.Text = datum
                txtTijd.Text = tijd
                txtteller.Text = teller
                txtuitvoer1.Text += teller.PadLeft("3") & ":   " & seqnr(index).PadRight("3") & "   " & vinnummer.PadLeft("2") & "    " & datum.PadLeft(2) & "   " & tijd.PadLeft(2) & "   " & vbCrLf
                teller += 1
                index = index + 1
                If teller > 5 Then

                    FileOpen(1, "C:\E2\Tekstfile_voor_importeren_excel\[COLOR="Red"]Ingave_E2_fo.txt[/COLOR]", OpenMode.Output)
                    WriteLine(1, txtuitvoer1.Text)
                    FileClose(1)

                    My.Computer.FileSystem.CopyDirectory("D:\BACKUPE2FILES", "D:\BACKUPE2FILESOLD\", True)
                    Try
                        Kill("D:\BACKUPE2FILES\*.*")
                        Threading.Thread.Sleep(3000)


                    Catch ex As Exception
                    End Try
                End If
            Loop
            'Threading.Thread.Sleep(5000)
            FileClose(2)
            FileOpen(1, "C:\E2Fo\Tekstfile_voor_importeren_excel\[COLOR="red"]Ingave_E2_fo.txt[/COLOR]", OpenMode.Output)
            WriteLine(1, txtuitvoer1.Text)
            FileClose(1)

            End If

             FileClose(2)
        lstwoorden.Items.Clear()