textbox tekst opslaan en openen als txt??

[stefanz]

Ik ben bezig met een programma en ik heb een code nodig om de tekst uit een textbox op te slaan en te openen zonder commondialog.
ik heb al iets gemaakt maar hij werkt niet goed.

Private Sub Command1_Click()
Dim namefile
namefile = Text1
Open App.Path & ("/" + namefile + ".txt") For Input As #1
    
    
Do Until EOF(1)
 
        Input #1, Data
        Text1.Text = Text1.Text + Data + vbNewLine
    EOF (1)
    Loop
    Close #1

End Sub

Private Sub Command2_Click()
Dim namefile
namefile = Text1
Open App.Path & ("/" + namefile + ".txt") For Output As #1
Print #1, Text1.Text
Close #1
End Sub

 

[gabber1]

als ik het goed zie staat er dat de text die in het txt bestand moet komen gelijk is aan de naam van het bestand. Volgensmij zit hier een klein foute. voor het openen van een txt bestand via kladblok is de volgende handige code:

path = "C:\WINDOWS\notepad.exe"
bestanddatjewilopenen = "C:\ditbestand.txt"
dTaskID = Shell(path + " " + bestanddatjewilopenen, vbNormalFocus)