HTML and VB 2

[cyberprof]

I want to include a web page I've developed in my VB program. I know how to use the Internet Controls to link to the htm files, but this file can be edited and change the result of the program.

Is there anyway of using a HTML files and lock it in the VB program so it cannot be deleted or edited.

Thanks

J

 

[CubeE101]

no problem...

just for fun, here is a smaller version...

Sub HtmlToFunction2(File As String)
  Dim HtmlLines As String
  Dim fName As String
  If Len(Dir(File)) Then
    Open File For Input As #1
      HtmlLines = Input(LOF(1), #1)
    Close
    With CreateObject("Scripting.FileSystemObject")
      fName = Replace(.GetFileName(File), "." & .GetExtensionName(.GetFileName(File)), "")
      Open Replace(File, "." & .GetExtensionName(.GetFileName(File)), "") & ".sub" For Output As #1
        Print #1, "Function " & fName & "()" & vbCrLf & "  Dim Temp As String" & vbCrLf & "  Temp = Temp & """ & _
                  Replace(HtmlLines, vbCrLf, """ & vbCrLf" & vbCrLf & "  Temp = Temp & """) & _
                  """ & vbCrLf" & vbCrLf & "  " & fName & " = Temp" & vbCrLf & "End Function" & vbCrLf
      Close
    End With
  End If
End Sub

PROGRAMMER: Red-eyed, mumbling mammal capable of conversing with inanimate objects.