VB.NET釋放資源文件的辦法？

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

創(chuàng)新互聯(lián)建站專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務，包含不限于成都網(wǎng)站設計、網(wǎng)站制作、岱山網(wǎng)絡推廣、小程序設計、岱山網(wǎng)絡營銷、岱山企業(yè)策劃、岱山品牌公關、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運營等，從售前售中售后，我們都將竭誠為您服務，您的肯定，是我們最大的嘉獎；創(chuàng)新互聯(lián)建站為所有大學生創(chuàng)業(yè)者提供岱山建站搭建服務，24小時服務熱線：13518219792，官方網(wǎng)址：www.cdcxhl.com

Dim?path?As?String?=?"C:\Data.mdb"?'文件釋放路徑

Dim?resources?As?System.Resources.ResourceManager?=?My.Resources.ResourceManager

Dim?b()?As?Byte?=?resources.GetObject("Data")

Dim?s?As?IO.Stream

Try

s?=?IO.File.Create(path)

s.Write(b,?0,?b.Length)

s.Close()

MessageBox.Show("資源釋放成功")

Catch?ex?As?Exception

MessageBox.Show("資源釋放失?。esult="?+?ex.Message)

End?Try

End?Sub

如何把VB.NET內(nèi)部資源文件復制到磁盤上

可以查看附件，或則使用以下代碼。應該注釋的滿全了。

隨便建一個窗口工程，窗口代碼帖入以下代碼。

Imports?System.IO

Imports?System.Text

Imports?System.Reflection

Public?Class?Form1

Const?ResName?As?String?=?"123.txt"?'?需要保存的資源名

Const?BufferSize?As?Integer?=?4096??'?復制時緩沖的大小

Private?Sub?Demo()

'?變量聲明

Dim?strDisplayText?As?StringBuilder?'?保存輸出信息

Dim?strResName?As?String????????????'?保存目標資源的名稱

'?變量初始化

strDisplayText?=?New?StringBuilder()

strResName?=?String.Empty

'?獲取所有資源

strDisplayText.AppendLine("文件中存在以下資源:")

For?Each?strName?As?String?In?Assembly.GetExecutingAssembly.GetManifestResourceNames()

strDisplayText.AppendLine("??"??strName)

'?獲得目標資源的全名

If?strName.EndsWith("."??ResName)?Then

strResName?=?strName

End?If

Next

'?目標資源不存在

strDisplayText.AppendLine()

If?strResName?=?String.Empty?Then

strDisplayText.AppendLine("抱歉，沒有找名為"""??ResName??"""的資源")

Else?'?復制資源的代碼

'?打開資源文件，在End?Using的時候自動關閉。

Using?ms?As?UnmanagedMemoryStream?=?Assembly.GetExecutingAssembly.GetManifestResourceStream(strResName)

'?打開磁盤文件，在End?Using的時候自動關閉。

Using?fs?As?New?FileStream("C:\"??ResName,?FileMode.Create)

'?變量聲明

Dim?Buffer(BufferSize?-?1)?As?Byte??'?復制文件時的緩沖數(shù)組

Dim?ReadCount?As?Integer????????????'?此次讀取數(shù)據(jù)的數(shù)量

'?還有數(shù)據(jù)可以讀取的情況，一直循環(huán)

ReadCount?=?ms.Read(Buffer,?0,?BufferSize)

While?ReadCount??0

fs.Write(Buffer,?0,?ReadCount)?'?寫入到磁盤文件

ReadCount?=?ms.Read(Buffer,?0,?BufferSize)

End?While

End?Using

End?Using

strDisplayText.AppendLine("文件已經(jīng)復制完畢。")

End?If

'?顯示消息

MessageBox.Show(strDisplayText.ToString())

End?Sub

Private?Sub?Form1_Load(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?MyBase.Load

Call?Demo()

End

End?Sub

End?Class

VB.net 釋放資源文件

你也遇到這樣的問題,我也是剛解決,下面代碼

我的文件在資源中類型為

array

Dim

resources

As

System.Resources.ResourceManager

=

My.Resources.ResourceManager

Dim

b()

As

Byte

=

resources.GetObject("psd文件在資源中的名稱")

Dim

s

As

IO.Stream

=

File.Create(Filepath)'要保存的路徑

s.Write(b,

0,

b.Length)

s.Close()