1,486
社区成员
发帖
与我相关
我的任务
分享
'保存
public function SaveList(byval FileName as string)
dim I as long
open filename for binary as #1
i=ubound(YourList)
put #1,,i '用I是为了保证4字节
put #1,,yourlist()
close #1
end function
'载入
public function LoadList(byval FileName as string)
dim I as long
open filename for binary as #2
get #2,,i
if i>=0 then
redim yourlist(i)
get #2,,yourlist()
else
msgbox "Err"
endif
close #2
end function