这个问题，一文不值----老兄，帮帮我，我还有十几个贴没有结啊

[bingpu]

先看代码---- 文件 读取 程序：
src 读出来的字符暂存地
wjh 文件号
text1 读出来的字符最终存放地
text2 路径+文件名
wjcd 存放文件的字节数

Dim src As String
wjh = FreeFile
Open Text2.Text For Binary As #wjh
wjcd = LOF(wjh)
For i = 1 To wjcd Step 1
Seek #wjh, i
Get #wjh, i, src
Text1.text = Text1.text + src
Next i
Close wjh
Msgbox "这句始终能运行",16,"我最拽"

为什么对有些文件无法读取（Text2.text里面什么都没有），而用记事本等程序都可以打开呢？

[tztz520]

你这样读一下看有没有数据.

DIM S AS string
Open "F:\ABC.TXT" For Input As #1
s = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
text1.text=s

[bingpu]

tztz520(午夜逛街)阁下，我将你的代码复制过去，系统说超出文件尾巴？

[tztz520]

'这样再试一下,用二进制读.

Dim TextLine As String

Open "f:\abc.txt" For Binary As #1
TextLine = Space(LOF(1))
Get #1, , TextLine
text1.text=TextLine

[bingpu]

tztz520(午夜逛街)阁下：
你的方法仍然不能解决问题----用你说的代码打开，只能看见部分代码，可是我用记事本打开，里面的字我看得分明----里面的内容还可以改

[bingpu]

ding