Dim strHTML As String Open "C:\1.html" For Input As #1 strHTML = Input(LOF(1), 1) Close #1 strHTML就是你要的。
同楼上,或者用fso或adodb.stream将对象当作一个文本文件读取都可以
Private Sub Command1_Click() Dim B() As Byte Dim s As String Open "C:\1.html" For Binary As #1 ReDim B(LOF(1) - 1) Get #1, , B Text1 = StrConv(B, vbUnicode) End Sub
Open "C:\1.html" For Input As #1
strHTML = Input(LOF(1), 1)
Close #1
strHTML就是你要的。
Dim B() As Byte
Dim s As String
Open "C:\1.html" For Binary As #1
ReDim B(LOF(1) - 1)
Get #1, , B
Text1 = StrConv(B, vbUnicode)
End Sub