Text1.Text = txt_ReadAll(Text7.Text)

' Lesen des gesamten Inhaltes einer Textdatei
' sFilename:  vollständiger Dateiname
' =========================================================
Public Function txt_ReadAll(ByVal sFilename As String) _
  As String
 
  Dim F As Integer
  Dim sInhalt As String
 
  ' Existiert die Datei ?
  If Dir$(sFilename, vbNormal) <> "" Then
    ' Textdatei im Binärmodus öffnen und gesamten
    ' Inhalt in einem Rutsch auslesen
    F = FreeFile
    Open sFilename For Binary As #F
    sInhalt = Space$(LOF(F))
    Get #F, , sInhalt
    Close #F
  End If
 
  txt_ReadAll = sInhalt
End Function

________________________
www.cyberspeed.eu.tt