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