7,763
社区成员
发帖
与我相关
我的任务
分享
Function getArchivoComoString(strFileName As String) As String
Dim strFile As String
Dim nFile As Variant
Dim size As Long
nFile = FreeFile ' 返回一个Integer,代表下一个可供OPEN语句使用的文件号
size = FileLen(strFileName) ' 本地文件的大小
Open strFileName For Binary As #nFile
' 假如 size = 100 经过 string 大小就会变成 200
' String(size \ 2, " ") 要是这样 他的大小就会变成 90 比原来小了
' 怎么才能让分配的空间大小和文件的大小相等
strFile = String(size, " ") ' 赋值 文件字节大小的 " " 空间给 strFile 变量
Get #nFile, , strFile ' 把打开的文件的 信息放在 strFile 中
Close #nFile
getArchivoComoString = strFile
End Function