dim pic() as byte '声名必须是数组为byte类型 pic = loadresdata(101, "custom") '使用loadresdate函数把资源文件数据放到变量中 a = 路径 & "\***.***" '这个变量a存储要释放文件的路径和存储文件的名字 open a for binary as #1 '这里是使用open语句建立这个文件 put #1, , pic '使用的是 put# 语句 close #1