请问如何用vb按文件块读流媒体文件？

Question

我想用VB读一个aaa.asf（大小有3M）文件，要从第2.1M开始读这个文件，请问如何解决？

Answer 1

Option ExplicitDim L As Long
Dim gByt() As BytePrivate Sub Command1_Click()
    Dim DLong As Long
    DLong = 1024
    DLong = 2.1 * DLong * DLong
    Open "c:\aaa.asf" For Binary As #1
    L = LOF(1)
    ReDim gByt(0 To L - DLong)
    Get #1, DLong, gByt()
    Close #1
End Sub