锐客网

  1. 首页 > 生活百科 > it技术 > >

VB.net读写物理磁盘 vbnet读写文件

IT技术文件

vb.net如何读写二进制文件？ 有各种类型的变量open函数用来打开一个文件，其调用的一般形式为：
文件指针名=fopen(文件名,使用文件方式);
其中 ，
“文件指针名”必须是被说明为FILE
类型的指针变量；
“文件名”是被打开文件的文件名；
“使用文件方式”是指文件的类型和操作要求 。
“文件名”是字符串常量或字符串数组 。
例如：
FILE
*fp；
fp=("file
a","r");
其意义是在当前目录下打开文件file
a，只允许进行“读”操作，并使fp指向该文件 。
又如：
FILE
*fphzk
fphzk=("c:\\hzk16","rb")
其意义是打开C驱动器磁盘的根目录下的文件hzk16，这是一个二进制文件，只允许按二进制方式进行读操作 。两个反斜线“\\
”中的第一个表示转义字符，第二个表示根目录 。
使用文件的方式共有12种 ， 下面给出了它们的符号和意义 。
文件使用方式
意义
“rt”
只读打开一个文本文件，只允许读数据
“wt”
只写打开或建立一个文本文件，只允许写数据
“at”
追加打开一个文本文件，并在文件末尾写数据
“rb”
只读打开一个二进制文件，只允许读数据
“wb”
只写打开或建立一个二进制文件，只允许写数据
“ab”
追加打开一个二进制文件，并在文件末尾写数据
“rt ”
读写打开一个文本文件 ， 允许读和写
“wt ”
读写打开或建立一个文本文件，允许读写
“at ”
读写打开一个文本文件，允许读，或在文件末追加数据
“rb ”
读写打开一个二进制文件，允许读和写
“wb ”
读写打开或建立一个二进制文件 ， 允许读和写
“ab ”
读写打开一个二进制文件，允许读，或在文件末追加数据
对于文件使用方式有以下几点说明：
1)
文件使用方式由r,w,a,t,b，六个字符拼成 ， 各字符的含义是：
r(read):
读
w(write):
写
a(append):
追加
t(text):
文本文件，可省略不写
b(banary):
二进制文件
:
读和写
2)
凡用“r”打开一个文件时，该文件必须已经存在，且只能从该文件读出 。
3)
用“w”打开的文件只能向该文件写入 。若打开的文件不存在，则以指定的文件名建立该文件，若打开的文件已经存在 ， 则将该文件删去，重建一个新文件 。
4)
若要向一个已存在的文件追加新的信息，只能用“a”方式打开文件 。但此时该文件必须是存在的，否则将会出错 。
5)
在打开一个文件时，如果出错，fopen将返回一个空指针值NULL 。在程序中可以用这一信息来判别是否完成打开文件的工作，并作相应的处理 。因此常用以下程序段打开文件：
6)
if((fp=fopen("c:\\hzk16","rb")==NULL)
{
printf("\nerror
on
open
c:\\hzk16
file
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())
Next
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 = GetLastDevMy.Computer.FileSystem.Drives(i).Name":"
Next
Return GetLastDev
【VB.net读写物理磁盘 vbnet读写文件】End Function
End Class
vb NET 文件写入磁盘问题你用VB.net读写物理磁盘的WriteLine, Line就是行VB.net读写物理磁盘，所以会加换行符
如果用Sw1.Write("....");就不会换行
VB.net读写物理磁盘的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet读写文件、VB.net读写物理磁盘的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：mysql数据库判断是否连接 php判断mysql连接

    下一篇：国内版ChatGPT下载，下载chats