Dim nSize As Long
Dim nFileSize As Long
Dim sFile As String
Dim F As Integer
Dim sInhalt As String
 
' Textdatei, die zu 5% eingelesen werden soll
sFile = "d:\temp\log.txt"
' Dateigröße ermitteln
nFileSize = FileLen(sFile)
 
' 5%...
nSize = nFileSize / 100 * 5
sInhalt = Space$(nSize)
 
' Datei öffnen und "nSize" Bytes einlesen
F = FreeFile
Open sFile For Binary As #F
Get #F, , sInhalt
Close #F
 
' Text im RTF-Control anzeigen
RichTextBox1.Text = sInhalt

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de