可以呀,我自己试了一下,成功了,我硬盘40G的。
给你一段代码参考吧:
Dim fs As Object, d As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each d In fs.Drives
Debug.Print d.driveletter & ": 总空间:" & d.TotalSize & "字节,剩余空间:" & d.FreeSpace & "字节"
Next
给你一段代码参考吧:
Dim fs As Object, d As Object
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
For Each d In fs.Drives
Debug.Print d.driveletter & ": 总空间:" & d.TotalSize & "字节,剩余空间:" & d.FreeSpace & "字节"
Next
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货