Sub Click(Source As Button)

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder("C:\Documents and Settings")
    
    Msgbox _
    "Name : " & objFolder.Name & Chr(13) & _
    "ShortName : " & objFolder.ShortName  & Chr(13) & _
    "Size : " & objFolder.Size & Chr(13) & _
    "Data Created : " & objFolder.DateCreated & Chr(13)

End Sub