Ecel VBA编程 操作磁盘.docxVIP

Excel VBA 编程 操作磁盘 通过 Drive 对象的使用，可以获取当前系统中各个驱动器的信息。例如，可以查看磁盘的路径、空间大小和文件类型，以及可以查看各个硬盘的剩余空间等。 查询磁盘信息 Sub 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 查询各硬盘的剩余空间 Sub 磁盘剩余空间()Dim 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 End If Next MsgBox s, , 磁盘剩余空间 End Sub