vb缺少对象 - VB / 基础类

VB code:
Private Sub Command4_Click()
Dim TempFile As Long
Dim LoadBytes() As Byte
Dim txtPath As String
TempFile = FreeFile
txtPath = c:
Open txtPath \ domain.txt For Binary As #TempFile
ReDim LoadBytes(1 To LOF(TempFile)) As Byte
Get #TempFile, , LoadBytes
Close TempFile
Text1.Text = StrConv(LoadBytes, vbUnicode)
End Sub


这个代码是导入txt到text1内的代码

编译提示缺少对象

---

txtPath ="c:\"
Open txtPath & "domain.txt" For Binary As #TempFile

---

Open txtPath & "domain.txt" For Binary As #TempFile

---

ReDim LoadBytes(1 To LOF(TempFile)) As Byte
改为
ReDim Preserve LoadBytes(1 To LOF(TempFile)) As Byte

---

没注意看 一看又是个问题

Close TempFile 
改为
Close #TempFile

---

果然很菜。。。俺们有得一拼

---

txtPath ="c:\"
Open txtPath & "domain.txt" For Binary As #TempFile

---

VB code:

txtPath="C:\domain.txt"
Open txtPath For Binary As #TempFile

很牛，不是牛肉干。。。

---

txtPath = c:

---

Open txtPath \ domain.txt

---

代码执行：
复
制
黏
贴
最
好
不
过
！