分享

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

 VB.NET小公主 2010-08-15
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
 
 
 
 
 
 
 
 
 
 
 
 
 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约

    类似文章 更多