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
|
|