VBCoding Библиотека кодов Visual Basic .NET Файловая система Информация о папке

Visual Basic .NET
Информация о папке
Импортируйте System.IO.
Данный код выводит информацию о папке в консоль:

Dim CheckDir As New DirectoryInfo("C:\Моя\Папка")
Console.WriteLine("Имя: " & CheckDir.Name)
Console.WriteLine("Находится в папке: " & CheckDir.Parent.Name)
Console.Write("Существует?")
Console.WriteLine(CheckDir.Exists.ToString())
If CheckDir.Exists Then
Console.Write("Время создания: ")
Console.WriteLine(CheckDir.CreationTime.ToString())
Console.Write("Последние изменение: ")
Console.WriteLine(CheckDir.LastWriteTime.ToString())
Console.Write("Последний доступ: ")
Console.WriteLine(CheckDir.LastAccessTime.ToString())
Console.Write("Атрибуты: ")
Console.WriteLine(CheckDir.Attributes.ToString())
Console.WriteLine("Папка содержит " & _
CheckDir.GetFiles.Length.ToString() & " файлов.")
End If
Console.ReadLine()
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic .NET Файловая система Информация о папке  
Powered by Exponenta -