资讯

精准传达 • 有效沟通

从品牌网站建设到网络营销策划,从策略到执行的一站式服务

vb.net获取硬盘容量,vb储存数据

vb.net如何获取电脑中的所有盘符

首先使用 System.IO.DriveInfo.GetDrives()获取System.IO.DriveInfo,存入ds()

成都创新互联主营岳阳网站建设的网络公司,主营网站建设方案,成都App制作,岳阳h5小程序开发搭建,岳阳网站营销推广欢迎岳阳等地区企业咨询

然后遍历ds,获取各个信息部分。

Dim ds() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

For i As Integer = 0 To ds.Length - 1

TextBox1.Text = TextBox1.Text + ds(i).DriveType.ToString + " " '驱动器类型

TextBox1.Text = TextBox1.Text + ds(i).Name + " " '盘符(驱动器名)

TextBox1.Text = TextBox1.Text + ds(i).IsReady.ToString + " " '是否就绪

If ds(i).IsReady = True Then

TextBox1.Text = TextBox1.Text + ds(i).VolumeLabel + " " '卷标

TextBox1.Text = TextBox1.Text + ds(i).TotalSize.ToString + " " '驱动器容量

TextBox1.Text = TextBox1.Text + ds(i).TotalFreeSpace.ToString '驱动器可用容量

End If

TextBox1.Text = TextBox1.Text + vbNewLine

Next

VB.NET获取硬盘信息的几种方法

strResult += 磁盘类型: System.Convert.ToInt16(disk(DriveType).ToString())End IfMsgBox(strResult)NextEnd Sub总结:在VB.NET中,用API函数可以获取硬盘信息。原来熟悉API函数VB6程序员,可以对API函数声明进行适当的更改后,进行调用。利用FSO(文件系统对象)的Scrrun.DLL,也可以获得磁盘信息。在.net Framwork中,利用WMI可以获取更多的关于机器硬件的详细信息(参考System.Management命名空间)。

VB中怎么用API获取磁盘的容量信息

转:

api函数获取磁盘容量:

Private Declare Function GetDiskFreeSpaceEx Lib "kernel32" Alias "GetDiskFreeSpaceExA" _

(ByVal lpDirectoryName As String, ByRef lpFreeBytesAvailableToCaller As Long, _

ByRef lpTotalNumberOfBytes As Long, ByRef lpTotalNumberOfFreeBytes As Long) As Long

Private Sub btnDisk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisk.Click

Dim BytesFreeToCalller As Long, TotalBytes As Long

Dim TotalFreeBytes As Long, TotalBytesUsed As Long

Dim strResult As String

Const RootPathName = "C:\"

Call GetDiskFreeSpaceEx(RootPathName, BytesFreeToCalller, TotalBytes, TotalFreeBytes)

strResult = " Drive " "C:\" vbCrLf

strResult += "磁盘容量(MB):" Format(CDbl((TotalBytes / 1024) / 1024), "###,###,##0.00") vbCrLf

strResult += "可用空间(MB):" Format(CDbl((TotalFreeBytes / 1024) / 1024), "###,###,##0.00") vbCrLf

strResult += "已用空间(MB):" Format(CDbl(((TotalBytes - TotalFreeBytes) / 1024) / 1024), "###,###,##0.00") vbCrLf

MsgBox(strResult)

End Sub

VB6中如何获取磁盘信息?

楼上的朋友可能有点小小的误会楼主的意思了,

楼主朋友可能要现在已经分好区的空间大小,已用空间、剩余空间。

当然我也不敢保证谁对谁错,

我还是把我的理解 然后 也把代码贴出来让楼主看看吧

下面代码的功能:显示光驱当前分区,以及各个盘的总空间,剩余空间。

当然。如果要硬盘总空间,我们可以把所有空间加起来,就达到要求了。

希望下面的代码对楼主有用!

'硬盘空间大小 以及光驱

'添加Drive1 Label1 Label2

Private Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTtoalNumberOfClusters As Long) As Long

Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Const DRIVE_CDROM = 5

Public drivenm As String, cddrive As String

Private Sub Form_Load()

'查找CD-ROM的驱动器号

cddrive = ""

For i = 65 To 90

If GetDriveType(Chr$(i) ":\") = DRIVE_CDROM Then

cddrive = UCase(Chr$(i)) ":\"

Exit For

End If

Next i

drivenm = "c:"

Label1.AutoSize = True

Label2.AutoSize = True

Drive1.Left = (Me.Width - Drive1.Width) \ 2

Drive1.Drive = "c"

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2

gethd

End Sub

Private Sub Form_Activate()

MsgBox "你的光驱在:" cddrive

End Sub

Private Sub Drive1_Change()

drivenm = Mid(Drive1.Drive, 1, 3)

gethd

End Sub

Private Sub gethd() '得知硬盘容量

On Error Resume Next

Dim dfs, cl1, cl2, sec1, byt1, tspace, getdiskvolm, lSize, kk%

Dim hdtype$, hdspace$, hdfspace$

dfs = GetDiskFreeSpace(drivenm, sec1, byt1, cl1, cl2)

If dfs Then

cl2 = Int(cl2 * sec1 / 1024 * byt1)

lSize = Len(Format$(cl2, "#########"))

If lSize 11 Then

kk = 11 - lSize

End If

hdspace = Space(kk) + Format$(cl2, "#########") + " KBytes"

cl1 = Int(cl1 * sec1 / 1024 * byt1)

lSize = Len(Format$(cl1, "#########"))

If lSize 11 Then

kk = 11 - lSize

End If

hdfspace = Space(kk) + Format$(cl1, "#########") + " KBytes"

Else

hdspace = ""

hdfspace = ""

End If

Label1.Caption = "你的" drivenm "盘的总空间是:" Format(Str(Val(hdspace) / 1024 / 1024), "##0.0") + " G"

Label2.Caption = "你的" drivenm "盘剩余空间是:" Format(Str(Val(hdfspace) / 1024), "###,##0.0") + " M"

If UCase(Left(Drive1.Drive, 2)) = UCase(Left(cddrive, 2)) Then

If Val(Label1.Caption) = 0 And Val(Label2.Caption) = 0 Then

MsgBox "这张盘是空的光盘"

Else

If Val(Label1.Caption) 0 And Val(Label2.Caption) 0 Then

MsgBox "这张盘不是空的光盘,但还有空间"

Else

If Val(Label1.Caption) 0 And Val(Label2.Caption) = 0 Then

MsgBox "这张盘是写满并终止的光盘"

End If

End If

End If

End If

End Sub

vb.net 磁盘文件列表,界面如图,在.net下如何实现?

预先准备三个图标文件,用于树型控件中显示磁盘符号和文件夹的图像之用。

1、窗体上添加控件如下:

组合框控件 ComboBox1,树型控件 TreeView1,列表框控件 ListBox1,图像列表控件 ImageList1。

选中TreeView1,设置其ImageList属性为ImageList1。

2、设置属性

选中图像列表控件 ImageList1,在属性窗口里,选中属性Images,单击三个小点按钮,出现图像集合编辑器窗口,单击[添加按钮],一一把准备好的图标文件进行添加,注意先后次序,如果不符合要求可以通过上下移动按钮重新改变次序。完成后单击[确定]。

运行图如下:

完整代码如下:

Imports System.IO

Public Class Form1

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

'添加系统所有磁盘目录符号

For Each MyDrive As String In Environment.GetLogicalDrives()

ComboBox1.Items.Add(MyDrive)

Next

'显示第一个磁盘符号

ComboBox1.Text = ComboBox1.Items(0)

End Sub

'递归过程添加目录树

Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode)

Dim i As Integer

Dim Mynode As New TreeNode

'先添加本目录

Mynode.Text = Strings.Replace(strPath, strFatherPath  "\", "", , 1)

'为节点指定未被选中时显示的图标

Mynode.ImageIndex = 1

'为节点指定被选中时显示的图标

Mynode.SelectedImageIndex = 2

nodeFather.Nodes.Add(Mynode)

Application.DoEvents()

Try

Dim str() As String = Directory.GetDirectories(strPath)

'递归遍历该目录的子文件夹

For i = 0 To str.GetUpperBound(0)

AddDirectory(strPath, str(i), Mynode)

Next

Catch ex As Exception

Debug.WriteLine(ex.Message)

End Try

Mynode = Nothing

End Sub

'根据给出的盘符添加目录树

Private Sub AddRootDirectory(ByVal DiscSymbol As String)

Dim Nynode As New TreeNode

'先把磁盘盘符添加到树中

TreeView1.Nodes.Clear()

Nynode.ImageIndex = 0

Nynode.Text = DiscSymbol

Nynode.SelectedImageIndex = -1

TreeView1.Nodes.Add(Nynode)

Dim i As Integer

'获取磁盘根目录下的文件夹

Dim str() As String = Directory.GetDirectories(DiscSymbol  "\")

For i = 0 To str.GetUpperBound(0)

'调用递归过程遍历该文件夹里的所有子文件夹,并添加到树型控件

AddDirectory(DiscSymbol, str(i), Nynode)

Next

Nynode = Nothing

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

'根据磁盘符号的变更,显示根目录里的文件

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(ComboBox1.Text)

ListBox1.Items.Add(MyFile)

Next

'根据磁盘符号的变更,重新显示目录树

Dim DiscSymbol As String

DiscSymbol = Microsoft.VisualBasic.Left(ComboBox1.Text, Len(ComboBox1.Text) - 1)

Call AddRootDirectory(DiscSymbol)

End Sub

'递归过程根据子目录寻找上级目录名--从而构成完整的目录路径

Private Sub AllPath(ByVal ThisNode As TreeNode, ByRef MyPathName As String)

If ThisNode.Level  1 Then

'该节点层数大于1,其父节点不是磁盘根目录

MyPathName = ThisNode.Parent.Text  "\"  MyPathName

Dim MyNode As TreeNode = ThisNode.Parent

Call AllPath(MyNode, MyPathName)

Else

'该节点层数等于1,其父节点就是磁盘根目录

MyPathName = ComboBox1.Text  MyPathName

End If

End Sub

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect

'为了搜索选中的节点对应目录的文件,需要组成全路径

Dim MyAllPathName As String = TreeView1.SelectedNode.Text

Dim MyNode As TreeNode = TreeView1.SelectedNode

If TreeView1.SelectedNode.Level = 0 Then

'如果选中的是根节点

MyAllPathName = ComboBox1.Text

Else

'如果选中的是非根节点,调用递归过程组成全路径

Call AllPath(MyNode, MyAllPathName)

MyAllPathName = MyAllPathName  "\"

End If

'根据路径,搜索文件名并显示

ListBox1.Items.Clear()

For Each MyFile As String In System.IO.Directory.GetFiles(MyAllPathName)

ListBox1.Items.Add(MyFile)

Next

End Sub

End Class


标题名称:vb.net获取硬盘容量,vb储存数据
网页地址:http://cdkjz.cn/article/hcheph.html
多年建站经验

多一份参考,总有益处

联系快上网,免费获得专属《策划方案》及报价

咨询相关问题或预约面谈,可以通过以下方式与我们联系

大客户专线   成都:13518219792   座机:028-86922220