Excel VBA编程 操作磁盘
Excel VBA编程  操作磁盘
通过Drive对象的使用，可以获取当前系统中各个驱动器的信息。例如，可以查看磁盘的路径、空间大小和文件类型，以及可以查看各个硬盘的剩余空间等。
1．查询磁盘信息
Sub 磁盘信息()
    Dim fso As New FileSystemObject
    Dim d As Drive, s As String
    Set d = fso.GetDrive("z:\")
    '获取驱动器号
    s = "磁盘：" & d.DriveLetter & vbCrLf
    '获取磁盘路径
    s = s & "磁盘路径：" & d.Path & vbCrLf
    '获取磁盘序列号
    s = s & "硬盘序列号：" & d.SerialNumber & vbCrLf
    '获取磁盘总大小
    s = s & "磁盘总空间：" & FormatNumber(d.TotalSize / 1024, 0)
    s = s & "Kb" & vbCrLf
    '获取磁盘共享名称
    s = s & "磁盘共享名称：" & d.ShareName & vbCrLf
    '获取文件系统类型
    s = s & "文件系统：" & d.FileSystem & vbCrLf
    '显示该磁盘信息
硬盘序列号查询
    MsgBox s, , "磁盘信息"
End Sub
2．查询各硬盘的剩余空间
通过FSO对象的Drives对象可获取当前计算机中各磁盘对象的引用，下面的例子将显示当前计算机中各磁盘的剩余空间。
Sub 磁盘剩余空间()
    Dim fso As New FileSystemObject
    Dim d As Drive
    Dim s As String
   
    s = "本计算机中共有" & fso.Drives.Count & "个驱动器。" & vbCrLf
    For Each d In fso.Drives
        '驱动器类型是硬盘
        If d.DriveType = Fixed Then
            s = s & "盘符：" & d.DriveLetter & "--" & _
                "剩余空间：" & FormatNumber(d.FreeSpace / 1024, 2) & "Kb" & vbCrLf
        End If
        '驱动器类型是光驱
        If d.DriveType = CDRom Then
            s = s & "盘符：" & d.DriveLetter & "--光驱" & vbCrLf
        End If
    Next
    MsgBox s, , "磁盘剩余空间"
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。