Es ist ein Ordner für eine help.html 
Am Anfang waren es noch "viele" HTML-Files. Nun ist es auf einmal nur noch ein help.htm? 
 
Ich habe einen Ordner mit unterordnern in denen sich viele HTML Dateien befinden.
Nun gut, wenn es nun doch nicht so viele sind, habe ich hier einen Code der vielleicht für Deine Zwecke reicht. 
- Einfach nur auf die Schnelle getippt
- Keine Fehlerabfragen
- Kein Check von Ausnahmen
- Kein Unicode
Für meine Zwecke ist der Code zu langsam, deshalb habe ich diesen Weg auch nicht weiterverfolgt.
Code: Alles auswählen
File.s= OpenFileRequester("Datei auswählen...","","html (.htm)|*.htm|All files (*.*)|*.*",0)
If File.s
  If ReadFile(0, File.s) 
    While Eof(0) = 0 
      string.s+ ReadString(0) 
    Wend
    CloseFile(0)        
  Else
    MessageRequester("Fehler","Datei konnte nicht geöffnet werden")
  EndIf
EndIf
If CreateRegularExpression(0, "<body.*?<\/body>")  
  Dim result.s(0)
  ExtractRegularExpression(0, string, result.s())
EndIf
string=result.s(0)
laenge.i=StringByteLength(string,#PB_UTF8)
string_neu.s=Space(laenge)
For k=1 To laenge
  If PeekS(@string+k,1,#PB_UTF8) =">"
    ww.s="ok"
    k+1
  EndIf
  If PeekS(@string+k,1,#PB_UTF8) ="<"
    ww.s=""
  EndIf
  If ww.s="ok"
    PokeB(@string_neu+g, PeekB(@string+k))
    g+1 
  EndIf
Next k
Debug string_neu
Gruß