[VB6] File opslaan? :: RoelVB.nl

Jason
4 posts

Heey,

Ik had laatst een topic over het lezen van een file: http://roelvb.nl/?pagina=forum&topic=39

Nu wil ik precies het tegenovergestelde doen, een file opslaan.
Hoe doe ik dit?

vrijdag 4 april 2008 om 13:43

RoelVB
Webmaster
108 posts

even een functie geschreven die bijna hetzelfde te gebruiken is als die functie uit dat andere topic

Code
1 2 3 4 5	`Function BestandOpslaan(Bestand As String, Data As String) As String Open Bestand For Output As #1 Print #1, Data Close #1 End Function`

de inhoud van Text1 zet je dan bijvoorbeeld op de volgende manier in C:\tekst.txt

Code
1	`BestandOpslaan "C:\\\tekst.txt", Text1.Text`

vrijdag 4 april 2008 om 18:35

Jason
4 posts

bedankt!

vrijdag 4 april 2008 om 19:09

Vegras
2 posts

laat, maar mischien heb je er nog wat aan: binary opslaan. Het is beter :p

Code
1 2 3 4 5 6	`dim ff as integer: ff = freefile open "C:\foo\bar.txt" for binary as #ff put #ff,, textbox1.text 'of als variabele: 'put, #ff,, sText close #ff`

donderdag 15 mei 2008 om 17:31