英语写作个性与团队:vb 查看计算机各盘信息情况
来源:百度文库 编辑:中财网 时间:2024/05/04 07:33:04
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 "卷标" & sEnd 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 SubPrivate Sub Command3_Click()
Set folder1 = fso.GetFolder("d:")
If (fso.FolderExists("d:\test") = False) Then
fso.CreateFolder ("d:\test")
MsgBox "创建成功"
Else
MsgBox "文件夹已存在"
End IfEnd SubPrivate 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 SubPrivate 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 sReturnEnd Sub
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 "卷标" & sEnd 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 SubPrivate Sub Command3_Click()
Set folder1 = fso.GetFolder("d:")
If (fso.FolderExists("d:\test") = False) Then
fso.CreateFolder ("d:\test")
MsgBox "创建成功"
Else
MsgBox "文件夹已存在"
End IfEnd SubPrivate 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 SubPrivate 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 sReturnEnd Sub
怎样查看计算机所有端口的情况?
怎么样查看计算机近期的使用情况
怎么样在开机自检的情况查看计算机的配置?
在不拆机箱的情况下怎么查看主板的信息?
如何在计算机中查看主板的型号和相关的信息?
在局域网中别人通过计算机管理进入我的计算机,并且可以查看我的信息,怎么办??
怎样在局域网(都是windows 98)中通过计算机管理进入别人的计算机,并且可以查看他的信息,
计算机的内存起什么作用?怎么查看内存的使用情况?
“通过‘控制板’可以查看计算机中的硬件和软件的情况”对不?
如何在无法取得io的情况下去查看局域网内部的其它计算机
怎么查看主板信息
查看电脑配置信息
怎样查看硬件信息?
怎么样查看电脑信息?
怎么查看计算机硬件信息?
查看历史信息
系统信息无法查看
怎样查看显卡信息?
exif信息如何查看?
查看苏州移动用户信息
怎样查看CPU信息
怎么样查看系统信息
如何查看硬件信息??
如何查看显卡信息