Oops, mine doesn't have the same strings as yours.

If you only want to rid the Added by HTTrack, then change lines above to the
following...

  spos = InStr(1, FileText, "<!-- Added by HTTrack -->")  ' Find the initial
comment
  epos = InStr(spos, FileText, "<!-- /Added by HTTrack -->") ' Find the end of
the comment
  comment = Mid(FileText, spos, epos-spos+27)
  FileText = Replace(FileText, comment, "") ' replace the comment with blank
string

And that should do it.



>