本函数只有两个参数，资源文件的在程序集中的路径（程序集的名称.项目文件夹路径.文件名）和写入的文件路径。
请在使用前引入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
