Source Code. Информация о выбранном файле

Скачать пример


Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim information As System.IO.FileInfo
Dim openFileDialog1 As New OpenFileDialog()
openFileDialog1.Title = "Выберите файл"

If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.Cancel Then
TextBox1.Text = "Файл не выбран"
Else
information = My.Computer.FileSystem.GetFileInfo(openFileDialog1.FileName)
TextBox1.Text = openFileDialog1.FileName 'путь к файлу
TextBox2.Text = openFileDialog1.SafeFileName ' получаем имя файла
TextBox3.Text = information.Length ' получаем размер в байтах
TextBox4.Text = information.CreationTimeUtc 'Время создания файла
End If
End Sub
End Class