ja se izvinjavam ako sam zakasnio.. jel mislis na ovo:
Code:
Private Sub Command1_Click()
On Error Resume Next
Open "C:\proba.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub
Private Sub Command2_Click()
Dim LOAD As String
On Error Resume Next
Open "C:\proba.txt" For Input As #1
Input #1, LOAD
Text1.Text = LOAD
Close #1
End Sub
a umesto proba.txt mozes da upises bilo sta.. npr proba.JPG ili proba.ASDAPSJPDGSDG itd :)
[Ovu poruku je menjao Aleksandar Ružičić dana 07.12.2007. u 05:55 GMT+1]