UC知道VB文件读取
来源：百度知道 编辑：UC知道 时间：2024/06/01 04:37:01
我希望用二进制方式打开文件的前32K，而不打开其他内容，要如何实现？
'输入文件路径strFileName
'返回前32KB字符串
Private Function GetInfo(ByVal strFileName As String) As String
'32768B=32KB
Dim strReturn As String * 32768
On Error GoTo READERR
Open strFileName For Binary As #1
Get #1, , strReturn
Close #1
GetInfo = strReturn
Exit Function
READERR:
GetInfo = ""
End Function
Open <filename> For Binary Access Read As #1 Len = 32767
DIM B(1 TO 32767) AS BYTE
Get #1, , B