VB.net讀寫物理磁盤 c 讀寫物理磁盤

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

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

創(chuàng)新互聯(lián)專注于伊犁企業(yè)網(wǎng)站建設(shè),響應(yīng)式網(wǎng)站開發(fā),購(gòu)物商城網(wǎng)站建設(shè)。伊犁網(wǎng)站建設(shè)公司,為伊犁等地區(qū)提供建站服務(wù)。全流程定制網(wǎng)站設(shè)計(jì)，專業(yè)設(shè)計(jì)，全程項(xiàng)目跟蹤，創(chuàng)新互聯(lián)專業(yè)和態(tài)度為您提供的服務(wù)

隨便建一個(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

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

strDisplayText.AppendLine()

If?strResName?=?String.Empty?Then

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

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

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

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

'?打開磁盤文件，在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

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 中如何進(jìn)行文件的讀寫

一般來講asp.net的服務(wù)器運(yùn)行應(yīng)用所用的賬號(hào)只有對(duì)應(yīng)用所在目錄(放網(wǎng)頁(yè)的目錄)的訪問權(quán)限，你可以把文件存儲(chǔ)在應(yīng)用所在目錄或者子目錄試試。

My.Computer.FileSystem.WriteAllText(Server.MapPath("") “\" Now.toString("yyyyMMdd") ".txt", "URL：XXXXXX查詢完成，匹配成功！" vbCrLf, true, System.Text.Encoding.Default)

vb.NET 關(guān)于數(shù)據(jù)庫(kù)的讀寫 - 高分

Dim da As New OleDb.OleDbDataAdapter（‘’輸入2/3/4其中的答案）

Dim ds As New DataSet

da.Fill(ds, "Table1")

Dim dt As DataTable

dt = ds.Tables("Table1")

//2. Cmd.CommandText = "select 序號(hào) from 賬號(hào) where 姓名='小李'"

//3. Cmd.CommandText = "select 序號(hào) from 賬號(hào) where 姓名='小張'"

//4. Cmd.CommandText = "insert into 賬號(hào)(姓名,年齡,性別,序號(hào)) values('張三','22','男','4')"

DataGridView1.DataSource = dt '建立datagridview來顯示資料

myCn.Close()

vb NET 文件寫入磁盤問題

你用的WriteLine, Line就是行，所以會(huì)加換行符

如果用Sw1.Write("....");就不會(huì)換行

VB.NET編寫測(cè)試硬盤速度的程序

前日在用SiSofare Sandra 測(cè)試硬盤性能時(shí)突發(fā)其想用自己熟悉的VB NET測(cè)試行不行呢？具體怎么做呢？我們最感興趣的是硬盤在最大負(fù)荷下持續(xù)的讀取和寫入速度為了能夠比較準(zhǔn)確的測(cè)出平均速度我決定采用先寫入一個(gè) GB的文件再讀取出來的辦法考慮到不要讓更多的任務(wù)花在循環(huán)上我首先建立起一個(gè)足夠大的緩沖區(qū) 然后往磁盤寫入這個(gè)緩沖的內(nèi)容從而使硬盤達(dá)到最大的負(fù)荷考慮到Windows的讀取機(jī)制硬盤測(cè)試不太準(zhǔn)確此程序的讀取部分只能在第一次運(yùn)行時(shí)使用運(yùn)行次數(shù)越多測(cè)試也不準(zhǔn)確而寫入測(cè)試多次運(yùn)行以后依然能夠保持準(zhǔn)確性現(xiàn)在就開始動(dòng)手在VB NET中創(chuàng)建了一個(gè)控制臺(tái)工程TestHarddisk 然后在Sub Main中寫入下列程序 Sub Main()Dim I As Int Dim f As New FileStream( E:\BigFile big FileMode Create)Dim fw As New BinaryWriter(f)Dim fr As New BinaryReader(f)Dim Size As Int = * * File size = GBDim bufSize As Int = * * Buffer Size = MBDim jLast As Int = bufSize Dim j As Int Dim Bytes(bufSize) As ByteDim StartWrite As Date = Date NowConsole WriteLine( Write Start at { } StartWrite)Console WriteLine( Creating )For I = To Size Step bufSize GBfw Write(Bytes)NextDim EndWrite As Date = Date NowDim TimePassed As TimeSpan = EndWrite Subtract(StartWrite)Console WriteLine( Write End at { } EndWrite)Console WriteLine( Time passed:{ } TimePassed)Console WriteLine( Speed:{ } / TimePassed TotalSeconds)fw Flush()Dim StartRead As Date = Date NowConsole WriteLine( Read Start at { } StartRead)Console WriteLine( Reading )For I = To Size Step bufSizeBytes = fr ReadBytes(bufSize)NextDim EndRead As Date = Date NowTimePassed = EndRead Subtract(StartRead)Console WriteLine( Read End at { } EndRead)Console WriteLine( Time passed:{ } TimePassed)Console WriteLine( Read speed:{ } / TimePassed TotalSeconds)Console ReadLine()fw Close()End Sub現(xiàn)在測(cè)試硬件配置 Athlon +（running at G）EPOX RDA + nForce 主板 DDR (running at MHz)ATA Seagate GB MB 軟件配置 Windows Server Standard Edition全套最新的WHQL驅(qū)動(dòng)程序Visual Studio 編譯選擇Realse模式打開所有優(yōu)化選項(xiàng) 第一次運(yùn)行測(cè)試得寫入速度 MB/s 第二次測(cè)得 MB/s 第三次 MB/s與Sisofare測(cè)試得的結(jié)果 MB/s相差不大達(dá)到了理想的效果然而讀取測(cè)試就變態(tài)了第一次 MB/s 與Sissofare測(cè)試多了 MB/s左右第二次達(dá)到了 MB/s 第三次 MB/s 這和Windows的磁盤緩沖機(jī)制有關(guān) 看來作用還是蠻大的當(dāng)然建議讀取測(cè)試在重起電腦以后進(jìn)行 lishixinzhi/Article/program/net/201311/13666

VB.NET 中使用 combobox 控件獲取磁盤信息

先引用 System.ManageMent

Public Class Form1

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

Dim HDDDeviceQuery As New Management.SelectQuery("Win32_DiskDrive")

Dim HDDDeviceSearch As New Management.ManagementObjectSearcher(HDDDeviceQuery)

Dim HDDDeviceInfo As Management.ManagementObject

For Each HDDDeviceInfo In HDDDeviceSearch.Get()

ComboBox1.Items.Add("HDD Description: " HDDDeviceInfo("caption").ToString())

ComboBox1.Items.Add("HDD BytesPerSector: " HDDDeviceInfo("BytesPerSector").ToString())

'ComboBox1.Items.Add("HDD CompressionMethod: " HDDDeviceInfo("CompressionMethod").ToString())

ComboBox1.Items.Add("HDD Index: " HDDDeviceInfo("Index").ToString())

'ComboBox1.Items.Add("HDD InstallDate: " HDDDeviceInfo("InstallDate").ToString())

ComboBox1.Items.Add("HDD Manufacturer: " HDDDeviceInfo("Manufacturer").ToString())

ComboBox1.Items.Add("HDD Partitions: " HDDDeviceInfo("Partitions").ToString() Space(1) GetLastDev())

ComboBox1.Items.Add("HDD Size: " Int(Val(HDDDeviceInfo("Size").ToString()) / 2 ^ 30) " GBytes")

ComboBox1.Items.Add("HDD TotalCylinders: " HDDDeviceInfo("TotalCylinders").ToString())

ComboBox1.Items.Add("HDD TotalSectors: " HDDDeviceInfo("TotalSectors").ToString())

ComboBox1.Items.Add("HDD TracksPerCylinder: " HDDDeviceInfo("TracksPerCylinder").ToString())

ComboBox1.Items.Add("HDD TotalHeads: " HDDDeviceInfo("TotalHeads").ToString())

ComboBox1.Items.Add("HDD TotalTracks: " HDDDeviceInfo("TotalTracks").ToString())

ComboBox1.Items.Add("HDD SectorsPerTrack: " HDDDeviceInfo("SectorsPerTrack").ToString())

ComboBox1.Items.Add("HDD SCSILogicalUnit: " HDDDeviceInfo("SCSILogicalUnit").ToString())

End Sub

Public Function GetLastDev() As String

GetLastDev = ""

Dim r As Short = My.Computer.FileSystem.Drives.Count

For i As Short = 0 To r - 1 Step 1

GetLastDev = GetLastDev My.Computer.FileSystem.Drives(i).Name ":"

Return GetLastDev

End Function

End Class

本文題目：VB.net讀寫物理磁盤 c 讀寫物理磁盤
文章分享：http://muchs.cn/article2/hgidoc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供定制開發(fā)、企業(yè)網(wǎng)站制作、標(biāo)簽優(yōu)化、ChatGPT、網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站

聲明：本網(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í)需注明來源：創(chuàng)新互聯(lián)

猜你還喜歡下面的內(nèi)容