如何释放资源管理器中的文件到指定目录下

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