gegevens opslaan

[snipeytje]

weet iemand de code om gegevens op te slaan in een text bestandje.

 

[RonaldGJ]

Open "C:\file.txt" For Output As #1
Print #1, Text1.Text
Close #1

 

[snipeytje]

die code klopt niet echt hij snapt open print en close niet

 

[That Guy]

ik gebruik meestal: (vind ik makkelijker)

Private Function savetofile(filePath as string)
On Error Resume Next
Dim hFile As Long
   Dim sFilename As String
   sFilename = filePath
   hFile = FreeFile
   Open sFilename For Output As #hFile
      Print #hFile, Textx.Text
   Close #hFile
End Function

noot dat Textx.Text een textbox is met text, je kan er ook een variabele van maken


V:thumb:

 

[snipeytje]

voor 2005 of is dit de vb 6 code

 

[snipeytje]

"open" wordt niet gesnapt

 

[RonaldGJ]

Die van mij is VB 6.0 en die van Vegras zo te zien ook:thumb:

 

[That Guy]

100%

heb je al op google gezocht voor de 2005?

 

[snipeytje]

ja en ik heb het net gevonden