zoukankan      html  css  js  c++  java
  • VB.NET下用FSO(文件系统对象模型)实现获取硬盘信息

    FSO对象模型包含在SCRIPTING类型库(SCRRUN.DLL)中。调用方法如下:

    在项目菜单中选择引用,在COM中选择Microsoft Scripting Runtime

    在代码最顶端添加Imports Scripting,在按钮的单击事件中加入以下代码:


    Imports Scripting

     

        
    Private Sub btnFso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFso.Click

            
    Dim Fso As New FileSystemObject

            
    Dim drvDisk As Drive, strResult As String

            drvDisk 
    = Fso.GetDrive("C:\")

            strResult 
    = "Drive " & "C:\" & vbCrLf

            strResult 
    += "磁盘卷标:" & drvDisk.VolumeName & vbCrLf

            strResult 
    += "磁盘序列号:" & drvDisk.SerialNumber & vbCrLf

            strResult 
    += "磁盘类型:" & drvDisk.DriveType & vbCrLf

            strResult 
    += "文件系统:" & drvDisk.FileSystem & vbCrLf

            strResult 
    += "磁盘容量(G): " & FormatNumber(((drvDisk.TotalSize / 1024/ 1024/ 10242, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

            strResult 
    += "可用空间(G): " & FormatNumber(((drvDisk.FreeSpace / 1024/ 1024/ 10242, , , Microsoft.VisualBasic.TriState.True) & vbCrLf

            strResult 
    += "已用空间(G):" & FormatNumber(((((drvDisk.TotalSize - drvDisk.FreeSpace) / 1024/ 1024/ 1024), 2, , , Microsoft.VisualBasic.TriState.True)

            
    MsgBox(strResult)

        
    End Sub


    转自 中国.NET论坛
  • 相关阅读:
    re模块的split(),sub()方法 新发现
    tf.where()&np.random.RandomState.rand()&np.vstack&np.mgrid .ravel np.c_[]
    Embedding实现1pre1
    tf.keras训练iris数据集
    tf.keras 搭建神经网络六部法
    循环计算过程(4pre1)
    池化(pooling)舍弃(dropout)& 卷积神经网络
    [C]gcc编译器的一些常用语法
    [POSIX]文件系统(概述)
    [Linux]PHP-FPM与NGINX的两种通讯方式
  • 原文地址:https://www.cnblogs.com/tatsuya/p/661612.html
Copyright © 2011-2022 走看看