1,488
社区成员




'保存
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