vb 查看计算机各盘信息情况

Option Explicit
Dim fso As New FileSystemObject
Dim folder1 As Folder
Private Sub Command1_Click()
  Dim fso, d, dc, s, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
   For Each d In dc
      n = ""
      s = s & d.DriveLetter & " - "
      If d.DriveType = Remote Then
         n = d.ShareName
      ElseIf d.IsReady Then
         n = d.VolumeName
      End If
      s = s & n & Chr(13)
   Next
   MsgBox "卷标" & s

End Sub

Private Sub Command2_Click()
Dim drv1 As Drive
Dim sReturn As String
Set drv1 = fso.GetDrive("c:\")
sReturn = "Drive" & "  " & "c:\" & vbCrLf
sReturn = sReturn & "卷标" & drv1.VolumeName & vbCrLf
sReturn = sReturn & "总空间：" & FormatNumber(drv1.TotalSize / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
sReturn = sReturn & "剩余空间：" & FormatNumber(drv1.FreeSpace / 1024, 0)
sReturn = sReturn & "Kb" & vbCrLf
sReturn = sReturn & "文件系统" & drv1.FileSystem & vbCrLf
MsgBox sReturn
End Sub

Private Sub Command3_Click()
Set folder1 = fso.GetFolder("d:")
If (fso.FolderExists("d:\test") = False) Then
fso.CreateFolder ("d:\test")
MsgBox "创建成功"
Else
MsgBox "文件夹已存在"
End If

End Sub

Private Sub Command4_Click()
Set folder1 = fso.GetFolder("C:")
If (fso.FolderExists("d:\test") = True) Then
fso.DeleteFolder ("d:\test")
MsgBox "删除成功"
Else
MsgBox "文件夹不存在"
End If
End Sub

Private Sub Command5_Click()
'获取文件夹的有关信息
  Dim sReturn As String
  Set folder1 = fso.GetFolder("C:\Windows")
  'sReturn = "The folder's Attributes is " ＆ folder1.Attributes ＆ vbCrLf
  '获取最近一次访问的时间
  sReturn = sReturn & "The folder's last access time is " & folder1.DateLastAccessed & vbCrLf
  '获取最后一次修改的时间
  sReturn = sReturn & "The folder's last modify time is " & folder1.DateLastModified & vbCrLf
  '获取文件夹的大小
  sReturn = sReturn & "The folder's size is " & FormatNumber(folder1.Size / 1024, 0)
  sReturn = sReturn & "Kb" & vbCrLf
  '判断文件或文件夹类型
  sReturn = sReturn & "The type is " & folder1.Type & vbCrLf
  MsgBox sReturn

End Sub