Archief - VB Listbox naar tekstbestand

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
T

TheCeet

Legacy Member
Hallo iedereen.

Ik ben bezig an kassaprogramma voor school.

Ik moet namelijk de bestelde artikelen wegschrijven naar een tekstbestand uit een listbox. Dit lukt me wel.
Maar ik zou graag per bestelling alles in 1 document willen. Als ik nu op "Bevestigen" klik word het er naartoe geschreven naar mijn tekstbestand. Maar als ik een nieuwe bestelling wil toevoegen wordt mijn andere overschreven....

Kan iemand mij helpen hoe dit moet?

De code die ik nu gebruik is alsvolgt.
Code: 
 Dim FileNumber As Integer = FreeFile()
        FileOpen(FileNumber, "AlleBestellingen.txt", OpenMode.Output)
        For Each Item As Object In lstBestelling.Items
            PrintLine(FileNumber, Item.ToString)

        Next
        FileClose(FileNumber)
F

Fraggie

Legacy Member
FileOpen(FileNumber, "AlleBestellingen.txt", OpenMode.Output)
->
FileOpen(FileNumber, "AlleBestellingen.txt", OpenMode.Append)

?
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan