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

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

成都創(chuàng)新互聯(lián)執(zhí)著的堅(jiān)持網(wǎng)站建設(shè)，微信小程序定制開(kāi)發(fā)；我們不會(huì)轉(zhuǎn)行，已經(jīng)持續(xù)穩(wěn)定運(yùn)營(yíng)十載。專業(yè)的技術(shù)，豐富的成功經(jīng)驗(yàn)和創(chuàng)作思維，提供一站式互聯(lián)網(wǎng)解決方案，以客戶的口碑塑造品牌，攜手廣大客戶，共同發(fā)展進(jìn)步。

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

Imports?System.IO

Imports?System.Text

Imports?System.Reflection

Public?Class?Form1

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

Const?BufferSize?As?Integer?=?4096??'?復(fù)制時(shí)緩沖的大小

Private?Sub?Demo()

'?變量聲明

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

Dim?strResName?As?String????????????'?保存目標(biāo)資源的名稱

'?變量初始化

strDisplayText?=?New?StringBuilder()

strResName?=?String.Empty

'?獲取所有資源

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

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

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

'?獲得目標(biāo)資源的全名

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

strResName?=?strName

End?If

Next

'?目標(biāo)資源不存在

strDisplayText.AppendLine()

If?strResName?=?String.Empty?Then

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

Else?'?復(fù)制資源的代碼

'?打開(kāi)資源文件，在End?Using的時(shí)候自動(dòng)關(guān)閉。

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

'?打開(kāi)磁盤文件，在End?Using的時(shí)候自動(dòng)關(guān)閉。

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

'?變量聲明

Dim?Buffer(BufferSize?-?1)?As?Byte??'?復(fù)制文件時(shí)的緩沖數(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)復(fù)制完畢。")

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 釋放資源文件

你也遇到這樣的問(wèn)題,我也是剛解決,下面代碼

我的文件在資源中類型為

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()

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

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

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("資源釋放失敗！Result="?+?ex.Message)

End?Try

End?Sub

分享名稱：vb.net資源文件 vb源程序文件
本文路徑：http://chinadenli.net/article36/dodjjsg.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、App設(shè)計(jì)、Google、網(wǎng)頁(yè)設(shè)計(jì)公司、動(dòng)態(tài)網(wǎng)站、企業(yè)建站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)