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

---

´úÂëÖ´ÐУº
¸´
ÖÆ
ð¤
Ìù
×î
ºÃ
²»
¹ý
£¡