计算机磁盘读取信息,VBA如何获取电脑磁盘信息,这个方法一定要知道
No.1
磁盘信息在电脑操作中是一个十分重要的内容,在很多编程语言中都有相应的语法。
同样VBA编程中也不例外,给我们预置了一些对象,可对计算机磁盘进行访问操作。
本节介绍如何获取磁盘信息,或者说是磁盘驱动器信息。
Drive对象
此对象属性就是整个磁盘的一些基本信息。
如下图所示
磁盘就是硬盘分别以不同大小区分的一些数据区域,在安装系统之前已经做好分区工作,我们所有的数据将保存在磁盘中,电脑系统运行的时候就会访问这些磁盘,以读取保存在磁盘里的数据。
这个过程涉及到数据结构的一些知识,可以查询了解一下相关内容。
本节主要是对磁盘的一个整体信息进行读取,并不是读取磁盘里保存的数据信息。
下面看一下例子
No.2
创建驱动对象
Private Sub CommandButton1_Click()Dim Fs, D, Fpath As StringFpath = ThisWorkbook.PathSet Fs = CreateObject("Scripting.FileSystemObject")Set D = Fs.GetDrive(Fs.GetdriveName(Fpath))MsgBox "当前驱动器为: " & D.Driveletter, vbInformation, "提示"End Sub
如上代码,变量D就是创建的驱动对象,也就是Drive对象。
然后访问Drive对象的属性就取出相应值。
如:
D.VolumeName '设置或者返回驱动器的卷标
D.DriveType'返回驱动器类型
应用就相对简单了,主要是要熟悉如何创建对象。
首先创建一个FileSystemObject对象,然后使用FileSystemObject对象的GetDrive方法返回一个Drive对象,赋值给变量D,重点就在这里,Drive对象是GetDrive方法返回的。
No.3
下图为返回当前计算机中所有磁盘的方法
代码
Private Sub GetDrives()Dim Fs, dx, D, Dstr As StringFpath = ThisWorkbook.PathSet Fs = CreateObject("Scripting.FileSystemObject")Set D = Fs.DrivesFor Each dx In DDstr = Dstr & Chr(10) & dx.Driveletter & Space(3) & dx.volumenameNext dxMsgBox "当前电脑共有磁盘:" & VBA.vbCrLf & VBA.Trim(VBA.Replace(Dstr, Chr(10), "", 1, 1)), vbInformation, "提示"End Sub
以上过程可返回计算机中所有的驱动器名称和卷标。
可任意复制使用。
如果想要获取所有电脑中的磁盘是一个不错的方法,收藏备用。
详细过程不介绍了,对照前面属性表可查看相应的属性。
下列代码是所有Drive属性应用示例
Private Sub GetDriveinfo()Dim Fs, D, Fpath As String, cell As RangeFpath = ThisWorkbook.PathSet Fs = CreateObject("Scripting.FileSystemObject")Set D = Fs.GetDrive(Fs.GetdriveName(Fpath))Set cell = Range("C4")Dim dArr(0 To 11), i As IntegerWith DFor i = 0 To UBound(dArr)Select Case iCase 0cell.Offset(i, 2).Value = .availablespaceCase 1cell.Offset(i, 2).Value = .DriveletterCase 2cell.Offset(i, 2).Value = .drivetypeCase 3cell.Offset(i, 2).Value = .FileSystemCase 4cell.Offset(i, 2).Value = .FreespaceCase 5cell.Offset(i, 2).Value = .isreadyCase 6cell.Offset(i, 2).Value = .PathCase 7cell.Offset(i, 2).Value = .rootFolderCase 8cell.Offset(i, 2).Value = .serialnumberCase 9cell.Offset(i, 2).Value = .sharenameCase 10cell.Offset(i, 2).Value = .TotalSizeCase 11cell.Offset(i, 2).Value = .volumenameEnd SelectNext iEnd WithEnd Sub
上述代码不能直接使用,要配合相应的表,当然如果使用也可以,可能对当前活动表有一些修改操作,所以建议用一个空表来调试,效果也不错。
本节代码比较多,也具有一定的实用性,建议收藏。
欢迎关注、收藏
---END---
举报/反馈
计算机磁盘读取信息,VBA如何获取电脑磁盘信息,这个方法一定要知道相关推荐
- python获取电脑硬件信息_Python实现的读取电脑硬件信息功能示例
本文实例讲述了Python实现的读取电脑硬件信息功能.分享给大家供大家参考,具体如下: 上学那会,老师让我用java获取电脑硬件信息,CPU, 硬盘,MAC等,那个时候感觉搞了好久...... 今天, ...
- nodejs获取电脑磁盘信息
效果图: 我的磁盘情况: 程序执行结果: nodejs实现: const d = require('diskinfo'); // 需安装diskinfo依赖d.getDrives(function ( ...
- Java.Utils:获取电脑配置信息
Don't say much, just go to the code. package org.bood.common.utils;import java.io.*;/*** 获取电脑配置信息** ...
- C#获取电脑硬件信息(CPU ID、主板ID、硬盘ID、BIOS编号
C#获取电脑硬件信息(CPU ID.主板ID.硬盘ID.BIOS编号 http://www.cnblogs.com/liufei88866/archive/2010/05/11/1732671.htm ...
- Python获取电脑硬件信息及状态的实现方法
From: http://www.jb51.net/article/54470.htm 这篇文章主要介绍了Python获取电脑硬件信息及状态的实现方法,是一个很实用的技巧,需要的朋友可以参考下 本文以 ...
- c# 获取电脑硬件信息通用查询类[测试通过]
C#获取电脑硬件信息通用类[Computer]代码展示和分析,简介如下: 1.项目中添加System.Management引用. 2.添加类Computer,把下面代码全选,复制,粘贴. 3.使用方法 ...
- js怎么获取电脑硬件信息
转载自品略图书馆 http://www.pinlue.com/article/2020/07/1708/2211037430301.html 想知道怎么获取电脑的硬件信息吗,下面是小编带来js怎么获取 ...
- c#中如何获取电脑硬件信息?山寨一个鲁大师
最近Boss提了个需求,要收集下公司的电脑信息,配置比较低的淘汰掉.本来想用腾讯的电脑管家里的[硬件检测]工具,但也有些麻烦.它虽然可以将信息导出成txt文件,但录制作一张Excel表格就显得麻烦了, ...
- 通过注册表获取电脑硬件信息
通过注册表获取电脑硬件信息 可以获取的硬件信息:设备型号,设备厂商,设备SN号:电脑背面条形码下面,cpu型号,操作系统名称. 下面是获取sn号的代码示例: std::string GetSystem ...
最新文章
- 了解Hololens2的硬件信息
- python编程入门与案例详解pdf-Python入门之三角函数sin()函数实例详解
- 计算机专业勤学善思感悟,勤学善思作文600字
- UA MATH571B 试验设计 2k析因设计理论下
- redux-saga 实践总结
- IDE使用经验——阿里代码规范 Eclipse格式化代码配置
- 用 .Net WebBrowser 控件获取POST数据
- GitHub 发布 2018 年开源项目趋势预测:跨平台、深度学习增长最快!
- 信息检索方法笔记(知识点和一些链接)
- 全网最雕的 10 名月薪超过 5W 的程序员,和他们的公众号!
- 58 集团面向亿级用户 IM 长连接服务设计与实践
- 如何设置windows服务
- 50个认知偏误:Elon Musk thinks everyone should know about
- Python四六级考试,快来测试一下自己的编程水平吧
- 从我自己的角度总结一下移动互联网的技术
- 【工作】Amazon Fraud Detection
- 谷歌和哈佛团队用深度学习预测余震;谷歌移交 Kubernetes 管理权,并承诺资助 900 万美元...
- MTK工具sigma的使用
- ibm服务器日常维护,《七小服公开课》IBM P780日常维护
- VSCode + JSDoc 完美实现(almost)JavaScript代码提示