VB.NET以二进制方式将嵌入的资源写入文件(不分文件类型)

本函数只有两个参数,资源文件的在程序集中的路径(程序集的名称.项目文件夹路径.文件名)和写入的文件路径。

请在使用前引入System.IO命名空间。

    Function WriteEmbeddedResourceToFile(ByVal resourcePath As String, ByVal Filepath As String) As Boolean

        Dim resourceStream As Stream = Me.GetType.Assembly.GetManifestResourceStream(resourcePath) '获得资源文件的流
        Dim resourceReader As BinaryReader = New BinaryReader(resourceStream) '准备以二进制方式读这个流
        Dim byteTemp As Byte() = resourceReader.ReadBytes(resourceStream.Length) '把读取的二进制信息存储于数组中
        resourceStream.Close() : resourceStream.Dispose() : resourceReader.Close() : resourceReader.Dispose() '关闭、释放
        
        Dim resourceFileStream As FileStream = New FileStream(Filepath, FileMode.Create) '创建一个针对目标写入位置的文件流
        Dim resourceWriter As BinaryWriter = New BinaryWriter(resourceFileStream) '准备以二进制方式写这个流
        resourceWriter.Write(byteTemp) '把二进制数组写入文件
        resourceWriter.Flush() : resourceWriter.Close() : resourceWriter.Dispose() : resourceFileStream.Close() : resourceFileStream.Dispose() '清理、关闭、释放

        Return True '返回True以验证操作成功完成

    End Function


  • 0
    点赞
  • 0
    评论
  • 2
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

©️2021 CSDN 皮肤主题: 编程工作室 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值