| Получение информации о файле |
|
Вот пример получение информации о файле: ' Здесь необходимо поставить путь к файлу Dim CheckFile As New FileInfo("c:\Path\To\File.txt") MsgBox("Имя: " & CheckFile.Name) MsgBox("Путь: " & CheckFile.DirectoryName) MsgBox("Файл существует: " & CheckFile.Exists.ToString()) If CheckFile.Exists Then MsgBox("Время создания файла: " & CheckFile.CreationTime.ToString()) MsgBox("Время последней записи в файл: " & CheckFile.LastWriteTime.ToString()) MsgBox("Время последенго доступа: " & CheckFile.LastAccessTime.ToString()) MsgBox("Размер файла: " & CheckFile.Length.ToString()) MsgBox("Атрибуты файла: " & CheckFile.Attributes.ToString()) End If |