het opslaan en open van een tekst file

[stefanz]

ik wil graag tekst dat ik in textbox1 heb getypt dat hij dat opslaat als text.exe dat wil wel.
maar ik wil als je het programma op nieuw opent dat dan de tekst die ik opgeslagen heb weer tevoorschijn komt in textbox1. dit is de code maar die van form_load wil niet
wat voor code moet het zijn??????

Private Sub Command1_Click()
Dim namefile
namefile = "Text"
Open App.Path & ("/" + namefile + ".txt") For Output As #1
Write #1, Text1.Text
Close #1
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
Open App.Path (text.exe)
Write #1, Text1.Text
End Sub

werk met vb 6

 

[That Guy]

erhm, ten 1e, je 'text.exe' zal een gewoon textfile zijn, dus te lezen, maargoed:
Je bent vergeten het te closen. Ohja, en je vergeet de manier van lezen op te geven. En ohja, zo werkt het niet. Zo wel:

Private Sub Command1_Click()
Dim namefile [COLOR="Red"]as string[/COLOR]
namefile = "Text"
[COLOR="red"]dim ff as integer
ff = freefile[/COLOR]
Open App.Path & "/" + namefile + ".txt" For Output As[COLOR="red"] #ff[/COLOR]
Write [COLOR="red"]#ff[/COLOR], Text1.Text
Close [COLOR="red"]#1[/COLOR]
End Sub
--------------------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
[COLOR="red"]dim ff as integer
ff = freefile[/COLOR]

[COLOR="SeaGreen"]'dit is ff een testje[/COLOR]
if dir(App.Path [COLOR="red"]& "/text.exe") = "" then
   msgbox "het bestand 'text.exe' bestaat niet..."
end if

Open App.Path [COLOR="red"]& "/text.exe" for input as #ff[/COLOR]
[COLOR="red"]Print #ff, text1.text[/COLOR]
[COLOR="red"]Close #ff[/COLOR]
End Sub

Rood is waar ik het *wat* veranderd heb. Als t goed is werkt dit. En ohja, je slaat het op als .txt en wil het als .exe laden, dat gaat dus niet. Dus 1 van de 2 naar de andere veranderen.

 

[stefanz]

het werk niet

mischien kun je een visual basic file maken zo dat ik het kan open met vb.
blz

 

[That Guy]

ik heb de verbeterde code hierboven gegeven..... waarom heb je dan een vbp nodig?!

:thumb:

 

[stefanz]

die code wil niet

ik krijg errors