How to open/save a text file

[tom1597530]

Hello. I am amateur in programming and I am not English, so sorry for my English . I need a code from you:
I have Text1, Text2, Text3, Command1, Command2.
When I'll write a number, let's say, "12345" into the Text1 and I'll write "test" into the Text2 and I'll press Command1, it will save text from Text1 into a text document (.txt) congenitally to the desktop. It will have name written in Text2. And when I'll press Command2, it will load the number 12345 into the Text3.

Please, write me a complete code, 'cause I'm amateur and the best way to learn it for me is to read it in the code. Thank you very much.

 

[Andrzejek]

How about:

Option Explicit

Private Sub Command1_Click()

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

End Sub

Private Sub Command2_Click()
Dim strTextLine As String

Open "C:\" & Text2.Text & ".txt" For Input As #1
Do While Not EOF(1)
   Line Input #1, strTextLine
   Text3.Text = strTextLine
Loop
Close #1

End Sub

This code does not put the file on the Desktop - it is on C:\

Have fun.

---- Andy

 

[tom1597530]

OMG, it works! Thank you, Andy I'm really grateful, I was searching it for 2 weeks. Thaaaaaaaaaaaaaaaanx .

 

[tom1597530]

And can somebody please tell me, how can I lock that text file? I mean, that nobody can change info in it, but when you push the Command2 it WILL load the text? Thank you