VB 文件读取问题！

显示全部楼层 · 2011-7-10 19:34:24

我的程序有这样一个过程：（用来读取文件）
Public Function GetFileText(FileName As String) As String

Dim tmpString As String

Dim Data() As Byte

Dim tmpFileNum As Integer

tmpFileNum = FreeFile()

Open FileName For Binary As #tmpFileNum

ReDim Data(LOF(tmpFileNum) - 1)

Get #tmpFileNum, , Data()

Close #tmpFileNum

tmpString = StrConv(Data, vbUnicode)

GetFileText = tmpString
End Function
接着在按钮单击事件里面使用text1.text=getfiletext("c:\firefox.exe")来打开一个exe文件，但是text1里面只有MZ?三个字符....
打开其他的例如txt没问题可以正常读取。
有谁帮我解决一下或者重写这个过程，小弟感激不尽啊！
谢谢大家了！

千问 · 2011-7-10 19:34:24

textbox不支持不认识的字符推荐你用RichTextBox工程-部件-Microsoft Rich Textbox Control你的代码是没有问题的...

千问 · 2011-7-10 19:34:24

MZ就对了，你用记事本打开任何一个可执行文件，一开始都是这个，这叫文件头。...

VB 文件读取问题 ！

VB 文件读取问题！