将*.html文件转为*.txt文件之后为什么打不开文本啊！！ 虚心请教！！！

[candy2002]

我先打开一个网页，然后将网页转为源代码。但是却打不开
（ 我用RichTextbox显示文本）
Dim inChrCnt As Integer 'Number of characters
Dim strbuffer As String 'String buffer
Dim strMyString As String 'String to truncate

On Error GoTo default
inChrCnt = Len(path)
strbuffer = Left(path, inChrCnt - 5)
strMyString = strbuffer + ".txt" （这三段代码将*.html 文件转为*.txt文件
问题在这：打不开
Open strMyString For Input As #1
While Not EOF(1)
Line Input #1, lstr
RichTextBox1.Text = RichTextBox1.Text + lstr + Chr(13) + Chr(10)
Wend

Close #1

[rainstormmaster]

这么麻烦干什么？看你的代码，就是将文件改改扩展名而已。
类似这样 ：
name "c:\123\123.html" as "c:\123\123.txt"
或者用filecopy "c:\123\123.html" "c:\123\123.txt"
kill "c:\123\123.html"

或者，你只是想显示源文件的话，直接把网页文件已文本方式打开就行了

[mozhanshi]

你好象把存储路径的变量内容改了半天，原文件却没动。
应该将原文件读出，写入到一个新文件（.txt）中。
或用shell执行ren改文件名。

[east1iang1iang]

苹果给楼主拍马屁来啦!多给小的点分哦