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

  • A+
所属分类:lcx

    读取/获取硬盘盘符及卷名(包括网络驱动器),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模式下,整个数据分组在接收完之后才能进行加密。对许多网络应用来说,这是一个问题。例如,在一个安全的网络环境中,当从某个终端输入时,它必须把每一个字符马…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: