使用JSP对文件下载的控制(2)
来源：未知 责任编辑：责任编辑 发表时间:2013-11-18 20:56 点击:次
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
相关新闻>>
- 发表评论
-
- 最新评论 更多>>
