六合开奖结果现场直播欢迎诸位!收藏本站注 册登 陆
常用三肖中特马:基础知识网络知识操作系统WPS网页制作数据库算法网页成功之路网络安全最新技术古典mid流行midmid背景下载中心
您现在的位置:首页 > 三肖中特马 > 文章页

FileSystemObject检查磁盘容量信息

Admin | 2013-11-5 8:55:15 | ReadNums | 2545 | 标签 六合开奖结果现场直播 | 打印本页
     

  本例子中,我们借助FileSystemObject对象的DriveExists属性,可以检查获取磁盘的容量信息。

  首先弹出输入对话框,提示输出要查看的盘符。然后显示该盘符的可用容量。

  理论依据是:容量的单位是KB。再除1024就变成了MB。

  代码如下:

  Dim FSO As Object, DrvLetter As String, msg As String
  Set FSO = CreateObject("Scripting.FileSystemObject")
  DrvLetter = InputBox("查看的盘符:")
  If DrvLetter = "" Then
         Set FSO = Nothing
        Exit Sub
     End If
     If FSO.DriveExists(DrvLetter) Then
         msg = Format(FSO.GetDrive(DrvLetter).AvailableSpace / 1024, "#,##") & " KB"
         MsgBox DrvLetter & "可用容量是、" & msg & "。", vbInformation
     Else
        MsgBox DrvLetter & "输入盘符不存在。", vbExclamation
     End If
     Set FSO = Nothing
 End Sub


问题未解决:在线咨询

网友评论

(访客)
内容实用原创,讲得很好。
20xx年x月x日
(站长)
有问题请在线咨询。
20xx年x月x日