Public Sub 释放文件(ByVal 文件名 As String, ByVal 路径 As String)
Try
Dim 文件流 As IO.Stream = Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream(My.Application.Info.AssemblyName + "." + 文件名) '获取资源文件的流
Dim 文件内容(文件流.Length - 1) As Byte '定义数组
Dim 新文件 As New IO.FileStream(路径 + "\" + 文件名, IO.FileMode.OpenOrCreate) '创建文件
文件流.Read(文件内容, 0, 文件内容.Length)
新文件.Write(文件内容, 0, 文件内容.Length)
文件流.Close()
新文件.Close()
Catch ex As System.IO.D
irectoryNotFoundException
MessageBox.Show("未找到以下路径:" + 路径, "错误", MessageBoxButtons.RetryCancel, MessageBoxIcon.Error)
Catch ex As System.NullReferenceException
MessageBox.Show("未发现资源文件:" + 文件名, "错误", MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As exception
Msgbox(ex.message)
End Try
End Sub