与文件操作相关的问题

Question

我想把任意一个文件分解成一个个包好用于网络传输，应该使用什么样的方式比较合理高效啊？
我已经看了一些资料，但不能确定采用什么方法好
谢谢！

Answer 1

Dim FileNumber As Integer
Dim ByteLong As Long
Dim nBuf() As Byte, SendBuf() As Byte
      FileNumber = FreeFile
      Open "f:\aa.txt" For Binary As FileNumber
      ByteLong = LOF(FileNumber) - 1
      ReDim nBuf(ByteLong)
      Get FileNumber, , nBuf
      Close FileNumber
'这样就把"f:\aa.txt"读入到nBuf()这个数组里了,就从这个字节数组里取出来发了