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