VB中的打开文件操作？急急急

Open语句也可以打开大一点的文件,只是看你的语句怎么组织了
前不久讨论过一个StringBuilder类,就是大文本引发速度慢的问题,估计楼主的速度原因主要出自于这里,你可以读出一行后写入数组而不是与以前的字符串相连接,这样可以加快一点速度.

赞同 jjkk168(老加班的人--好好学习,天天吃饭)

假使我要打开200KB的文件，请问我的OPEN语句该怎么组织呢？

分割？？分割什么？
如果是文本文件建议使用 FileSystemObject
操作方便且速度快于 Open 如果是 2进制文件则使用 Open,如果考虑效率也可以使用
api readfile 并建议文件缓冲区来读取，速度比VB的Open 快很多

Option ExplicitType FileSection
    Bytes() As Byte
End Type '¶¨ÒåÊµ¼ÊÄÚ´æÊý×éType SectionedFile
    Files() As FileSection
End Type '¶¨Òå¸¨ÖúÄÚ´æÊý×é£¬ÒÔ±¸À©Õ¹Ê¹ÓÃType FileInfo
    OrigProjSize As Long 'ÎÄ¼þ´óÐ¡
    OrigFileName As String
    FileCount As Integer
    FileStartNum As Long
End Type '¶¨Òå»¹ÔÐÅÏ¢ÎÄ¼þ½á¹¹²ÎÊýPrivate Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (DestInatIon As Any, Source As Any, ByVal LENGTH As Long)Public Function ReassembleFile(TemplateFileName As String, OutPutName As String, Optional UseOldFilename As Boolean = True) As Boolean
    On Error GoTo e    Form1.MousePointer = 11    Dim FileInfo As FileInfo, outname As String, File As SectionedFile, m_LngLoop As Long, OpenName    Dim fnum As Integer, fnum1 As Integer    ReassembleFile = True    fnum = FreeFile    Open TemplateFileName For Binary As #fnum    Get #fnum, , FileInfo    Close #fnum  '¶ÁÈ¡»¹ÔÐÅÏ¢ÎÄ¼þµÄÓÐ¹ØÄÚÈÝ    If UseOldFilename Then    outname = FileInfo.OrigFileName    Else    outname = OutPutName    End If 'ÊÇ·ñ×Ô¼ºÖ¸¶¨»¹ÔºóÎÄ¼þÃû    ReDim File.Files(1)    fnum1 = FreeFile    Open outname For Binary As #fnum1    For m_LngLoop = 1 To FileInfo.FileCount    'Í¨¹ý»¹ÔÐÅÏ¢ÖÐ¼ÇÔØµÄÎÄ¼þ¸öÊýÈ·¶¨¶ÁÈ¡´ÎÊý
    OpenName = FileInfo.OrigFileName & "." & Format((FileInfo.FileStartNum - 1 + m_LngLoop), "00££")    'µÃµ½·Ö¸îºóÉú³ÉµÄÎÄ¼þÃû³Æ¡¢Â·¾¶    fnum = FreeFile    Open OpenName For Binary As #fnum    Get #fnum, 1, File.Files(1)    Close #fnum  '¶ÁÈ¡    Put #fnum1, , File.Files(1).Bytes 'Ð´Èë    Form1.Command6.Caption = FormatPercent(m_LngLoop / FileInfo.FileCount)    Form1.Command5.Caption = OpenName    Next    Close #fnum1    Form1.MousePointer = 0    Exit Functione:    MsgBox "ÎÄ¼þ²Ù×÷²úÉúÁË´íÎó:" & Err.Description, vbExclamation    ReassembleFile = False    Form1.MousePointer = 0End Function

Public Function SplitFile(SplitFileName As String, BeginningNumber As Long, ReturnErrorDes As String, Split As Long, oName As String) As Boolean'¶¨Òå¹«ÓÐ¹ý³Ì,ÓÃÀ´·Ö¸îÎÄ¼þ,º¯Êý·µ»ØÒ»Âß¼Öµ¡£true´ú±í³É¹¦£¬false´ú±íÊ§°Ü£¬ËÄ¸ö²ÎÊýÒÀ´ÎÊÇ£¬±»·Ö¸îÎÄ¼þÃû£¬¿ªÊ¼±àºÅ£¬·Ö¸îºóÎÄ¼þ´óÐ¡£¬·Ö¸îºóÎÄ¼þÃû³Æ Dim SaveName As String '·Ö¸îºóÎÄ¼þÃû Dim fnum As Integer, fnum1 As Integer 'ÎÄ¼þÍ¨µÀ±äÁ¿ SplitFile = True 'Èç¹ûÏÂÃæÃ»ÓÐ´íÎó£¬·µ»ØÕæÖµ On Error GoTo CleanUp Dim CurrentFile As SectionedFile, m_lngNumFil As Long, m_LngLoop As Long, FilesLen As Long FilesLen = FileLen(SplitFileName) 'µÃµ½±»·Ö¸îÎÄ¼þ´óÐ¡ If FilesLen <= Split + 1 Then SplitFile = False ReturnErrorDes = "±»·Ö¸îÎÄ¼þ´óÐ¡Ð¡ÓÚ·Ö¸îºóÎÄ¼þ´óÐ¡,ÇëÖØÐÂÉèÖÃ!" Exit Function End If 'Èç¹û±»·Ö¸îÎÄ¼þÐ¡ÓÚ·Ö¸îºóÎÄ¼þ£¬ÍË³ö¹ý³Ì
fnum = FreeFile '·µ»ØµÚÒ»¸ö¿ÕÏÐÍ¨µÀÓÃÀ´¶ÁÈ¡ Open SplitFileName For Binary As fnum 'ÓÃ¶þ½øÖÆ·½Ê½´ò¿ª±»·Ö¸îÎÄ¼þ If CInt(FilesLen / Split) >= FilesLen / Split Or CInt(FilesLen / Split) = FilesLen / Split Then m_lngNumFil = CInt(FilesLen / Split) Else m_lngNumFil = CInt(FilesLen / Split) + 1 End If '¾«È·¼ÆËãÎÄ¼þ½«±»·Ö¸îµÄ¸öÊý ReDim CurrentFile.Files(1) '·ÖÅäÒ»¸öÄÚ´æ¸¨ÖúÊý×é For m_LngLoop = 1 To m_lngNumFil 'Õâ¸öÑ»·ÓÃÀ´½«ÎÄ¼þ·Ö¸î£¬²¢ÇÒÉú³É·Ö¸îºóµÄÎÄ¼þ If m_LngLoop < m_lngNumFil Then 'Èç¹û²»ÊÇ×îºóÒ»´ÎÑ»· ReDim CurrentFile.Files(1).Bytes(0 To Split - 1)' ÖØÐÂ·ÖÅä´óÐ¡µÈÓÚ·Ö¸î³ß´çµÄÄÚ´æÊý×é Get #fnum, , CurrentFile.Files(1).Bytes '¶ÁÈ¡µÈÓÚ·Ö¸î´óÐ¡µÄ¶þ½øÖÆÊý¾Ýµ½ÄÚ´æÊý×é Else 'Èç¹ûÊÇ×îºóÒ»´ÎÑ»· ReDim CurrentFile.Files(1).Bytes(0 To FilesLen - ((m_lngNumFil - 1) * Split) - 1) 'ÖØÐÂ·ÖÅä´óÐ¡µÈÓÚÒÅÁô³¤¶ÈµÄÄÚ´æÊý×é Get #fnum, , CurrentFile.Files(1).Bytes Close #fnum '¹Ø±Õ¶ÁÈ¡ÎÄ¼þÍ¨µÀ End If SaveName = oName & "." & Format(BeginningNumber - 1 + m_LngLoop, "00#") '¼ÆËã·Ö¸îºóµÄÎÄ¼þÃû£¬À©Õ¹ÃûÎª00£¿ fnum1 = FreeFile 'µÃµ½µÚ¶þ¸ö¿ÕÏÐÍ¨µÀÓÃÀ´Ð´Èë Open SaveName For Binary As fnum1 Put #fnum1, 1, CurrentFile.Files(1) DoEvents Close #fnum1 'ÓÃ¶þ½øÖÆ·½Ê½Ð´Èë·Ö¸îºóµÄÎÄ¼þ Form1.Command6.Caption = FormatPercent(m_LngLoop / m_lngNumFil) 'ÏÔÊ¾¼òµ¥µÄ½ø¶ÈÖ¸Ê¾ Form1.Command5.Caption = SaveName 'ÏÔÊ¾ÕýÔÚ²Ù×÷µÄÎÄ¼þÃû Next Dim FileInfoFile As FileInfo '¶¨Òå»¹ÔÐÅÏ¢ÎÄ¼þÄÚÈÝ FileInfoFile.FileCount = m_lngNumFil '·Ö¸îºóÎÄ¼þ¸öÊý FileInfoFile.OrigFileName = oName 'Êä³öÎÄ¼þÃû FileInfoFile.OrigProjSize = FileLen(SplitFileName) '±»·Ö¸îÎÄ¼þ´óÐ¡ FileInfoFile.FileStartNum = BeginningNumber '·Ö¸îºóÎÄ¼þÆðÊ¼±àºÅ SaveName = oName & ".HJ" '»¹ÔÐÅÏ¢ÎÄ¼þÃû fnum = FreeFile Open SaveName For Binary As #fnum Put #fnum, , FileInfoFile Close #fnum 'Ð´Èë»¹ÔÐÅÏ¢ÎÄ¼þ Exit FunctionCleanUp: 'Èç¹û³öÏÖ´íÎó ReturnErrorDes = Err.Description SplitFile = False '·µ»ØÖµÎªfalse
End Function

Public Function SplitFile1(SplitFileName As String, BeginningNumber As Long, ReturnErrorDes As String, Split As Long, oName As String) As Boolean'¶¨Òå¹«ÓÐ¹ý³Ì,ÓÃÀ´·Ö¸îÎÄ¼þ,º¯Êý·µ»ØÒ»Âß¼Öµ¡£true´ú±í³É¹¦£¬false´ú±íÊ§°Ü£¬ËÄ¸ö²ÎÊýÒÀ´ÎÊÇ£¬±»·Ö¸îÎÄ¼þÃû£¬¿ªÊ¼±àºÅ£¬·Ö¸îºóÎÄ¼þ´óÐ¡£¬·Ö¸îºóÎÄ¼þÃû³Æ    Dim SaveName As String '·Ö¸îºóÎÄ¼þÃû    Dim fnum As Integer, fnum1 As Integer 'ÎÄ¼þÍ¨µÀ±äÁ¿

    Dim Bytes() As Byte
    Dim Bytes1() As Byte

    SplitFile1 = True 'Èç¹ûÏÂÃæÃ»ÓÐ´íÎó£¬·µ»ØÕæÖµ    On Error GoTo CleanUp    Dim CurrentFile As SectionedFile, m_lngNumFil As Long, m_LngLoop As Long, FilesLen As Long    FilesLen = FileLen(SplitFileName) 'µÃµ½±»·Ö¸îÎÄ¼þ´óÐ¡

    ReDim Bytes(FilesLen - 1)

    If FilesLen <= Split + 1 Then        SplitFile1 = False

        ReturnErrorDes = "±»·Ö¸îÎÄ¼þ´óÐ¡Ð¡ÓÚ·Ö¸îºóÎÄ¼þ´óÐ¡,ÇëÖØÐÂÉèÖÃ!"

        Exit Function    End If

    fnum = FreeFile    Open SplitFileName For Binary As fnum
    Get #fnum, , Bytes    Close #fnum


    If CInt(FilesLen / Split) >= FilesLen / Split Or CInt(FilesLen / Split) = FilesLen / Split Then
        m_lngNumFil = CInt(FilesLen / Split)
    Else
        m_lngNumFil = CInt(FilesLen / Split) + 1
    End If    For m_LngLoop = 1 To m_lngNumFil
        If m_LngLoop < m_lngNumFil Then
            ReDim Bytes1(Split - 1)
            CopyMemory Bytes1(0), Bytes((m_LngLoop - 1) * Split), Split
        Else
            ReDim Bytes1(FilesLen - ((m_lngNumFil - 1) * Split) - 1)
            CopyMemory Bytes1(0), Bytes((m_LngLoop - 1) * Split), FilesLen - ((m_lngNumFil - 1) * Split)
        End If

        SaveName = oName & "." & Format(BeginningNumber - 1 + m_LngLoop, "00#")

        fnum1 = FreeFile

        Open SaveName For Binary As fnum1

        Put #fnum1, 1, Bytes1

        DoEvents

        Close #fnum1

        Form1.Command6.Caption = FormatPercent(m_LngLoop / m_lngNumFil)

        Form1.Command5.Caption = SaveName
    Next
    Exit Function
CleanUp:    ReturnErrorDes = Err.Description    SplitFile1 = False '·µ»ØÖµÎªfalse
End Function

dim fn as long
fn=freefile
dim strFile as str
dim binFile() as byte
open filename for binary as #fn
get #fn,,binFile
close #fn
strFile=cstr(binfile)

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
类代码 : CFileBuff
Option Explicit'文件缓冲类，利用块读写来提高文件的读写速度Private Const GENERIC_WRITE = &H40000000
Private Const GENERIC_READ = &H80000000
Const FILE_ATTRIBUTE_NORMAL = &H80
Const CREATE_ALWAYS = 2
Const OPEN_ALWAYS = 4
Const INVALID_HANDLE_VALUE = -1
Const ERROR_HANDLE_EOF = 38Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, _
        lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, _
        lpNumberOfBytesRead As Long, ByVal lpOverlapped As Long) _
        As LongPrivate Declare Function CloseHandle Lib "kernel32" ( _
        ByVal hObject As Long) As LongPrivate Declare Function WriteFile Lib "kernel32" ( _
        ByVal hFile As Long, lpBuffer As Any, _
        ByVal nNumberOfBytesToWrite As Long, _
        lpNumberOfBytesWritten As Long, ByVal lpOverlapped As _
        Long) As LongPrivate Declare Function CreateFile Lib "kernel32" _
        Alias "CreateFileA" (ByVal lpFileName As String, _
        ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _
        ByVal lpSecurityAttributes As Long, _
        ByVal dwCreationDisposition As Long, _
        ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile _
        As Long) As LongPrivate Declare Function SetFilePointer Lib "kernel32" ( _
        ByVal hFile As Long, ByVal loWord As Long, ByVal hiWord As Long, ByVal MoveMethod As Long) As LongPublic Enum enumFileSeek
   FS_BEGIN
   FS_CURRENT
   FS_END
End Enum
Private Const MAX_FILE_BUFF As Long = 512 '定义最大的缓冲区，正好一个扇区
Private Const EOF_CHAR As Byte = 0Private m_fb(MAX_FILE_BUFF - 1) As Byte
Private m_NeedCloseFile As Boolean '是否需要Private m_Handle As Long
Private m_OffSet As Long
Private m_DirtyFlag As Boolean
Private m_LastBuff As Boolean
Private m_MaxBytes As Long
Private m_FileName As String
'按标志创建文件
Public Function Create(FileName As String) As Boolean
    m_Handle = CreateFile(FileName, GENERIC_WRITE Or GENERIC_READ, 0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
    If m_Handle <> INVALID_HANDLE_VALUE Then  '看是否正确创建了文件
       m_FileName = FileName
       ReadFileToBuff
       Create = True
    Else
       Create = False
    End If
End Function
'关闭文件
Public Sub CloseFile()
    WriteBuffToFile
    CloseHandle m_Handle
End Sub
'移动文件指针，不支持超过2 ^ 31 的位移
Public Function FSeek(Pos As Long, FS As enumFileSeek) As Boolean
    Dim iPos As Long

    If m_DirtyFlag = True Then WriteBuffToFile
    Select Case FS
       Case FS_BEGIN

          If Pos < 0 Then FSeek = False

          If SetFilePointer(m_Handle, Pos, 0, 0) = &HFFFFFFFF Then
            FSeek = False
          Else
            If ReadFileToBuff = -1 Then
              FSeek = False
            Else
              FSeek = True
            End If
          End If

       Case FS_END
          If Pos > 0 Then FSeek = False

          If SetFilePointer(m_Handle, Pos, 0, 2) = &HFFFFFFFF Then
            FSeek = False
          Else
            If ReadFileToBuff = -1 Then
              FSeek = False
            Else
              FSeek = True
            End If
          End If

       Case FS_CURRENT
          iPos = Pos - (m_MaxBytes - m_OffSet) '计算实际的偏移位置

          If SetFilePointer(m_Handle, iPos, 0, 1) = &HFFFFFFFF Then
            FSeek = False
          Else
            If ReadFileToBuff = -1 Then
              FSeek = False
            Else
              FSeek = True
            End If
          End If

    End Select
End Function
'取一个字节
'返回 1 表示正确取到字符
'返回 0 表示已到文件尾，并且ch= EOF_CHAR
'返回 -1 表示取字符错误。
Public Function GetByte(ByRef ch As Byte) As Long
   Dim fl As Long
   If m_LastBuff = False Then
        If m_OffSet = MAX_FILE_BUFF Then
            fl = ReadFileToBuff
            Select Case fl
              Case 0
                GetByte = 0
              Case -1
                GetByte = -1
              Case Else
                ch = m_fb(0)
                m_OffSet = 1
                GetByte = 1
            End Select
        Else
            ch = m_fb(m_OffSet)
            m_OffSet = m_OffSet + 1
            GetByte = 1
        End If
   Else
        If m_OffSet < m_MaxBytes Then
            ch = m_fb(m_OffSet)
            m_OffSet = m_OffSet + 1
            GetByte = 1
        Else
            ch = EOF_CHAR
            GetByte = 0
        End If
   End If

End Function
'写一个字节,如果正确表示1，错误为-1
Public Function PutByte(by As Byte) As Long
    If m_OffSet < MAX_FILE_BUFF Then

       m_fb(m_OffSet) = by
       m_OffSet = m_OffSet + 1
       m_DirtyFlag = True

    Else  '已写满一个缓冲区

       WriteBuffToFile
       m_fb(0) = by
       m_OffSet = 1
       m_DirtyFlag = True

    End If
End Function
'看当前指针是否到达文件最尾端
Public Function FEof() As Boolean
   If m_LastBuff = False Then
      FEof = False
   Else
      If m_OffSet = m_MaxBytes Then
         FEof = True
      Else
         FEof = False
      End If
   End If
End Function
'///////////////////////////////////////////////////////////////////////////////////////
'预读字节到缓冲区,并返回实际读到的字节,如果返回-1，则表示出错了。
Private Function ReadFileToBuff() As Long
    Dim dwReadNum As Long

    If ReadFile(m_Handle, m_fb(0), MAX_FILE_BUFF, dwReadNum, 0) = 0 Then
        ReadFileToBuff = -1
    Else
        If dwReadNum <> MAX_FILE_BUFF Then
           '最后一个缓冲区

           m_LastBuff = True
           m_MaxBytes = dwReadNum
           m_OffSet = 0
           m_DirtyFlag = False

           ReadFileToBuff = dwReadNum

        Else

           m_LastBuff = False
           m_MaxBytes = MAX_FILE_BUFF
           m_OffSet = 0
           m_DirtyFlag = False

           ReadFileToBuff = MAX_FILE_BUFF
        End If

    End If
End Function
'写缓冲区到文件，并返回实际写的字节数
Private Function WriteBuffToFile() As Long
    Dim dwWriteNum As Long

    If m_OffSet = 0 Or m_DirtyFlag = False Then '如果写入数为0或者写入标志错则不写入
        WriteBuffToFile = 0
    Else
        If WriteFile(m_Handle, m_fb(0), m_OffSet, dwWriteNum, 0) Then
           WriteBuffToFile = dwWriteNum
        Else
           WriteBuffToFile = -1 '出错
        End If
    End If

    m_OffSet = 0
    m_DirtyFlag = False

End FunctionPrivate Sub Class_Initialize()
    Dim i As Long

    m_OffSet = 0
    m_Handle = 0
    m_DirtyFlag = False
    m_FileName = ""
    m_LastBuff = False
    m_MaxBytes = MAX_FILE_BUFF

End SubPrivate Sub Class_Terminate()
    CloseFile
End Sub

利用自建的文件缓冲区来提高文件读写速度，下面是与VB 自带的Put Get 进行比较//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
测试代码 :Form1
Option ExplicitPrivate cfb1 As CFileBuff
Private cfb2 As CFileBuff
Private fh1 As Long
Private fh2 As LongPrivate Sub Command1_Click()
   Dim fn1 As String
   Dim fn2 As String
   Dim fn3 As String
   Dim ch As Byte
   Dim i As Long
   Dim st1 As Single, et1 As Single
   Dim st2 As Single, et2 As Single

   fn1 = App.Path & "\D.DAT"
   fn2 = App.Path & "\D.BAK"
   fn3 = App.Path & "\D.BAK2"

   st1 = Timer
   Set cfb1 = New CFileBuff
   Set cfb2 = New CFileBuff

   If cfb1.Create(fn1) = True Then
      cfb2.Create (fn2)
      Do

        If cfb1.GetByte(ch) = 1 Then

          cfb2.PutByte ch
        Else
          Exit Do
        End If
      Loop While cfb1.FEof = False

   Else
      Debug.Print "Error Open File!"
   End If
   Set cfb1 = Nothing
   Set cfb2 = Nothing
   et1 = Timer
  ' MsgBox CStr(et1 - st1)

   st2 = Timer
   fh1 = FreeFile(0)
   Open fn1 For Binary As fh1

   fh2 = FreeFile(0)
   Open fn3 For Binary As fh2
   Do
       Get fh1, , ch
       Put fh2, , ch
   Loop While EOF(fh1) = False
   Close fh1
   Close fh2
   et2 = Timer
   MsgBox CStr(et1 - st1) & " " & CStr(et2 - st2)
   Debug.Print "Success!"
End Sub

Private Sub cmdSplitFile_Click()
    Dim sFile As String
    With CommonDialog1
        .DialogTitle = "打開文件"
        .Filter = "TXT文件(.txt)|*.txt|所有文件(*.*)|*.*"
        .ShowOpen
        .CancelError = False
    End With
    If Trim(CommonDialog1.FileName) = "" Then
        MsgBox "請選擇文件", vbInformation
        Exit Sub
    End If
    sFile = ReadFile(CommonDialog1.FileName)end sub模塊
Option ExplicitDeclare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" _
    (ByVal lpFileName As String, _
    lpFindFileData As WIN32_FIND_DATA _
    ) As Long
Declare Function FindClose Lib "kernel32" _
    (ByVal hFindFile As Long _
    ) As Long
Declare Function FileTimeToSystemTime Lib "kernel32" _
    (lpFileTime As FILETIME, _
    lpSystemTime As SYSTEMTIME _
    ) As Long
'
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
'
Type FILETIME
    LowDateTime          As Long
    HighDateTime         As Long
End Type
Type WIN32_FIND_DATA
    dwFileAttributes     As Long
    ftCreationTime       As FILETIME
    ftLastAccessTime     As FILETIME
    ftLastWriteTime      As FILETIME
    nFileSizeHigh        As Long
    nFileSizeLow         As Long
    dwReserved0          As Long
    dwReserved1          As Long
    cFileName            As String * 260  'MUST be set to 260
    cAlternate           As String * 14
End Type
Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
'
Public Function Findfile(ByVal xstrfilename As String) As WIN32_FIND_DATA
    On Error GoTo ErrorHandler

    Dim Win32Data As WIN32_FIND_DATA
    Dim plngFirstFileHwnd As Long
    Dim plngRtn As Long

    plngFirstFileHwnd = FindFirstFile(xstrfilename, Win32Data)  ' Get information of file using API call
    If plngFirstFileHwnd = 0 Then
        Findfile.cFileName = "Error"                              ' If file was not found, return error as name
    Else
        Findfile = Win32Data                                      ' Else return results
    End If
    plngRtn = FindClose(plngFirstFileHwnd)                      ' It is important that you close the handle for FindFirstFile

    Exit Function  'Sub
ErrorHandler:   '  'On Error GoTo ErrorHandler
    Dim funName
    funName = "Findfile"

   ' Call WriteRunErrInfo(funName, Err.Number, Err.Description)
End FunctionPublic Function ReadFile(ByVal FileAllPath As String) As String
'  Dim i As Long

   'FileAllPath = "d:\sb$\test.txt"

    'get file size
    Dim filedata As WIN32_FIND_DATA
    Dim nFileSize As Long

    filedata = Findfile(FileAllPath)        ' Get file information
    If filedata.nFileSizeHigh = 0 Then     '
        nFileSize = filedata.nFileSizeLow  '& " Bytes"
    Else
        nFileSize = filedata.nFileSizeHigh  '& "Bytes"
    End If

    If nFileSize <= 0 Then '(error 61)

       Exit Function
    End If

   'read file:
    Dim bytBuffer() As Byte
    ReDim bytBuffer(nFileSize - 1)

    Dim nFileNum As Integer
    nFileNum = FreeFile
    Open FileAllPath For Binary As #nFileNum
    Get #nFileNum, , bytBuffer()
    Close #nFileNum

    Dim sTeleText As String
    sTeleText = StrConv(bytBuffer(), vbUnicode)

    ReadFile = sTeleText

End Function

调试易

VB中的打开文件操作？急急急

解决方案 »