Dim Pic() As Byte '声名必须是数组为byte类型Pic = LoadResData(101, "CUSTOM") '使用loadresdate函数把资源文件数据放到变量中 101为要释放的文件编号a = App.Path & "****.***" '这个变量a存储要释放文件的路径和存储文件的名字[包含后缀]Open a For Binary As #1 '这里是使用open语句建立这个文件Put #1, , Pic '使用的是 put# 语句Close #1