函数如下: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是怎么回事?大家来讨论。
解决方案 »
- activeX dll 能不能读写vb主程序中的全局变量
- COMBO控件為何綁定數據庫卻無顯示
- 哪里用到的字符,可以放到资源文件中呀?为何菜单的标题文字可以从资源文件中取,可是按钮的标题却不能从资源文件中取呢?
- 天才
- 怎样使一个程序在拨号连接的时候自动打开呢?
- 用ado的时候,如何写连接SQL数据库的连接字符串?
- 我使用print在picture box里写了几个特效字,我想把它保存成图片,如何办呢
- 如何设定一张打印纸的宽度和高度
- APP.PATH中的APP能代表EXE文件吗?应该怎么写?(我想实现应用程序能安装在不同的目录下)
- 能否介绍一些关于API和控件.ocx的书?
- 能在 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