Saven van textbox

[computernerd]

Hallo!
Mijn load functie, om even gelijk met de deur naar binnen te vallen, ziet er zo uit:

filepath = Text1.Text
Dim file As String
file = filepath
Open file For Input As #1
Text2.Text = Input(LOF(1), #1)
Close

In Text1 vult de gebruik het pad in.

Hoe save ik dit nu? Alvast bedankt!

 

[huijb]

Probeer eens het volgende;

Private Sub Command1_Click()
Open App.Path & "maandag.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

 

[XenomX]

Save & Getsetting

Zo kan je ook een tekst opslaan...

SaveSetting "APP1", "APP2", "NAAM", Text1.Text

Om het dan weer op te roepen...

Text1.Text = GetSetting("APP1", "APP2", "NAAM")

Dit moet werken...


Mvg,

 

[computernerd]

Geplaatst door huijb
Probeer eens het volgende;

Private Sub Command1_Click()
Open App.Path & "maandag.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Deze werkt niet iig bij mij...

 

[XenomX]

oeps

Volgens mij had ik de vraag verkeerd gelezen

Gr,

 

[XenomX]

Zo wel...

Zo werkt hij wel! huijb was een \ vergeten

Private Sub Command1_Click()
Open App.Path + "\Maandag.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

Gr,

 

[huijb]

Solly, die Del-toets ook.

 

[XenomX]

ha .
maar werkt ie nu bij jou computernerd?

:thumb:

 

[computernerd]

Ja hoor! Bedankt voor jullie hulp!