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 "卷標(biāo)" & 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 & "卷標(biāo)" & 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 & "文件系統(tǒng)" & 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 "創(chuàng)建成功"
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()
'獲取文件夾的有關(guān)信息
Dim sReturn As String
Set folder1 = fso.GetFolder("C:\Windows")
'sReturn = "The folder's Attributes is " ＆ folder1.Attributes ＆ vbCrLf
'獲取最近一次訪問的時(shí)間
sReturn = sReturn & "The folder's last access time is " & folder1.DateLastAccessed & vbCrLf
'獲取最后一次修改的時(shí)間
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
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
