Получить свойства папки

 Sub ShowFolderSize(filespec)
        Dim fs, f As Object
        fs = CreateObject("Scripting.FileSystemObject")
        f = fs.GetFolder(filespec)
 
        Label2.Text = "Тип: " & f.type
        Label3.Text = "Расположение: " & f.ParentFolder.path
        Label4.Text = "Размер: " & LengthFile(f.size)
        Label5.Text = "Содержит: Файлов: " & f.files.count & " Папок: " & f.subfolders.count
        Label6.Text = "Создан: " & f.DateCreated
 
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        ShowFolderSize("C:\Integral.ltd")
    End Sub
 
    Public Function LengthFile(ByVal length&) As String
        Dim Result$ = "0 Байт"
        Const KB% = 1024, MB% = 1048576, GB% = 1073741824, TB& = 1099511627776
        Select Case length
            Case 0 To KB
                Result = If(length <= 1000, length & " Байт", "1 КБ")
            Case KB To MB
                Result = If((length / KB) <= 1000, Math.Round(length / KB, 2) & " КБ", "1 МБ")
            Case MB To GB
                Result = If((length / MB) <= 1000, Math.Round(length / MB, 2) & " МБ", "1 ГБ")
            Case GB To TB
                Result = If((length / GB) <= 1000, Math.Round(length / GB, 2) & " ГБ", "1 ТБ")
        End Select
        Return Result
    End Function