【VB】读取硬盘盘符及卷名(包括网络驱动器)

admin 2021年4月3日19:00:32评论64 views字数 1466阅读4分53秒阅读模式

    读取/获取硬盘盘符及卷名(包括网络驱动器),VB 读取/获取硬盘盘符(包括网络驱动器),VB 读取/获取硬盘卷名(包括网络驱动器),VB 读取/获取网络驱动器盘符及卷名,VB 读取/获取网络驱动器盘符,VB 读取/获取网络驱动器卷名,VB 读取/获取硬盘列表,VB 硬盘列表,VB Fso读取/获取磁盘列表,VB Fso 磁盘列表,VB 读取盘符,VB 读取卷名,VB 获取盘符,VB 获取卷名,VB 判断是否为网络驱动器,网络驱动器没有卷名,有共享名称。

VB读取/获取盘盘符及卷名(包括网络驱动器):

'读取硬盘列表
Public Function DiskList() As String
    On Error Resume Next
    Dim D
    'Fso读取磁盘列表
    For Each D In CreateObject("Scripting.FileSystemObject").Drives
        '读取盘符,卷名
        DiskList = DiskList & D.DriveLetter & ": 卷名:" & D.VolumeName & vbCrLf
        '判断是否为网络驱动器,网络驱动器没有卷名,有共享名称
        If D.DriveType = 3 Then DiskList = DiskList & D.DriveLetter & ": 卷名:" & D.ShareName & vbCrLf
    Next
End Function

MsgBox DiskList

VB读取硬盘盘符精简版(包括网络驱动器:

On Error Resume Next
Dim D, S  As String
For Each D In CreateObject("Scripting.FileSystemObject").Drives                 'Fso读取磁盘列表
    S = S & D.DriveLetter & vbCrLf                                              '读取盘符,卷名
Next
MsgBox S

DriveType DriveType 常数 语言参考:

--------------------------------------------------------------------------------
仅当类型库包含以下常数定义,且在您的工程文件中已经显式引用该类型库后,才允许使用这些常数。
对于 VBScript,必须在代码中显式声明这些常数。

常数  值 描述
Unknown  0 无法确定驱动器类型。
Removable 1 可移动媒体驱动器,包括软盘驱动器和其他多种存储设备。
Fixed  2 固定(不可移动)媒体驱动器,包括所有硬盘驱动器(包括可移动的硬盘)
Remote  3 网络驱动器,包括网络上任何位置的共享驱动器。
CDROM  4 CD-ROM 驱动器,不区分只读和可读写的 CD-ROM 驱动器。
RAMDisk  5 RAM磁盘,在本地计算机中占用一块"随机存取内存"(RAM)虚拟为磁盘驱动器
 
VolumeName 属性 描述设置或返回指定驱动器的卷标名。读/写属性。

文章来源于lcx.cc:【VB】读取硬盘盘符及卷名(包括网络驱动器)

相关推荐: 【文章】9.6 密码反馈模式 初始化向量 错误

9.6 密码反馈模式     分组密码算法也可以用于自同步序列密码,就是所谓的密码反馈模式(CFB)。在CBC模式下,整个数据分组在接收完之后才能进行加密。对许多网络应用来说,这是一个问题。例如,在一个安全的网络环境中,当从某个终端输入时,它必须把每一个字符马…

  • 左青龙
  • 微信扫一扫
  • weinxin
  • 右白虎
  • 微信扫一扫
  • weinxin
admin
  • 本文由 发表于 2021年4月3日19:00:32
  • 转载请保留本文链接(CN-SEC中文网:感谢原作者辛苦付出):
                   【VB】读取硬盘盘符及卷名(包括网络驱动器)http://cn-sec.com/archives/319553.html

发表评论

匿名网友 填写信息