Private Sub Command1_Click()
Dim F As Integer
F = FreeFile
Dim sText As String
sText = Text1.Text
Open "c:\meinprogramm\" & File1.FileName For Input As F
 
Line Input #F, sText
Close #F
Text1.Text = sText
 
End Sub
 
Private Sub Form_Load()
File1.Path = "c:\meinprogramm"
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)