函数如下:Public Function openFile(ByVal FullPathName As String) As String '打开文件,返回一个大字符串
    Dim sA As String                        'sArray
    Dim fileNumber As Integer
    fileNumber = FreeFile
    Open FullPathName For Binary As fileNumber
    sA = Space(FileLen(FullPathName))           '用空格填充sA变量
    Get fileNumber, , sA                    '用Get语句获取文件全部内容
    Close fileNumber
    openFile = sAEnd Function是怎么回事?大家来讨论。

解决方案 »

  1.   

    打开文本文件时无错,改动如下,可以打开任意文件,速度很快。
    Public Function openFile(ByVal FullPathName As String) As byte()'打开文件,返回一个大字符串
        Dim sA() As byte                        'sArray
        Dim fileNumber As Integer
        fileNumber = FreeFile
        Open FullPathName For Binary As fileNumber
        redim sA(FileLen(FullPathName)) as byte()           '用空格填充sA变量
        Get fileNumber, , sA                    '用Get语句获取文件全部内容
        Close fileNumber
        openFile = sAEnd Function
      

  2.   

    redim sA(FileLen(FullPathName)) as byte() 
    这句错,应是
    redim sA(FileLen(FullPathName)) as byte
      

  3.   

    欢迎大家来讨论VB中直接用IO方式操作文件。