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