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

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