Получить свойства папки - Visual Basic .NET
Формулировка задачи:
Всем привет!
Кто знает как получить атрибуты(свойства папки) в Лайблы?
Необходимо только
Тип:
Расположение:
Размер:
На диске:
Содержит:
Создан:
(см. скрин)
заранее спасибо за помощь!
Решение задачи: «Получить свойства папки»
textual
Листинг программы
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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д