Foxtable(狐表)用户栏目专家坐堂 → [求助]复制电脑文件到U盘空间不足的问题


  共有4250人关注过本帖树形打印复制链接

主题:[求助]复制电脑文件到U盘空间不足的问题

帅哥哟,离线,有人找我吗?
Bin
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/11/4 8:17:00 [显示全部帖子]

Dim allDrives() As System.IO.DriveInfo = System.IO.DriveInfo.GetDrives()

        Dim d As System.IO.DriveInfo
        For Each d In allDrives
            output.show("硬盘 : " & d.name)
            output.show("类型 : " & d.DriveType)
            If d.IsReady = True Then
                output.show("标题: " & d.VolumeLabel)
                output.show("格式: " & d.DriveFormat)
                output.show("对当前用户的可用空间: " & d.AvailableFreeSpace & " bytes")

                output.show("全部可用空间: " & d.TotalFreeSpace & " bytes")

                output.show("整个盘容量: " & d.TotalSize & "bytes ")
            End If
        Next

 回到顶部