函数如下: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是怎么回事?大家来讨论。
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是怎么回事?大家来讨论。
解决方案 »
- 急用:comboBox的显示问题
- space()找不到库,要引用哪个库啊?
- 菜问题~~~~发送邮件
- DATA是不是不能和DATAGRID控件绑定?
- 在网上下载了一个“航空公司管理信息系统”的源代码,但不知道为什么出错
- 高人请进!!一个active问题????在线等待!
- vb的SQL语句如何进行日期类型的比较,在线等待!
- 控件active skin的用法??我这里还有一些做好的Skn!!!!!!!!
- 关于flash 控件的右键问题
- 我在用printer打印时要在一行打印不同大小的字体,请问有无办法?
- 能在 MSFlexGrid 控件中查找吗??
- 改用什么api 函数将窗体发送到系统托盘中!!在线等!!!
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
这句错,应是
redim sA(FileLen(FullPathName)) as byte