VB中如何读取文件内容？急

[胖胖的鱼头]

我的代码是这样的：

Dim nFileNumber As Integer
Dim bFileInfo() As Byte
'Dim lFileLen As Long
Dim szFileInfo As String

szDatabaseName = App.Path + "\Database.dat"

'lFileLen = FileLen(szDatabaseName) '取得文件的长度

nFileNumber = FreeFile '调用FreeFile函数来取得可以的文件号
Open szDatabaseName For Binary As nFileNumber
Get #nFileNumber, , bFileInfo
Close #nFileNumber
szFileInfo = StrConv(bFileInfo, vbUnicode)
MsgBox szFileInfo

但最后的szFileInfo为空，不知道为什么，请高手指点。

[viena]

bFileInfo没有初始化
redim bFileInfo(Lof(nFileNumber)-1)

[viena]

动态数组用Redim初始化
用Erase语句释放

[tztz520]

Dim nFileNumber As Integer
Dim szFileInfo As String

szDatabaseName = App.Path + "\Database.dat"
Open szDatabaseName For Input As #1
szFileInfo = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1

MsgBox szFileInfo

[xmuyyd]

Dim bFileInfo() As Byte
Dim szFileInfo As String
Dim i As Integer
Dim char As String * 1
szdatabasename = "D:\Database.dat"
Open szdatabasename For Binary As #1
For i = 1 To FileLen(szdatabasename)
Get #1, , char
szFileInfo = szFileInfo & StrConv(char, vbUnicode)
Next
Close #1
s = MsgBox(szFileInfo, vbOKOnly, "tishi")