Dim F As Integer
Dim N As Integer
Dim sLine As String
 
F = FreeFile: Open "Datei.txt" For Input As #F
N = FreeFile: Open "Datei.neu" For Output As #N
While Not Eof(F)
  Line Input #F, sLine
  If Trim$(sLine) <> "" Then Print #N, sLine
Wend
Close #F: Close #N
 
Kill "Datei.txt"
Name "Datei.neu" As "Datei.txt"

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de