[fouadhdfouad]

كود :

Imports System.IO
Public Class Form1
   Dim Open As New OpenFileDialog
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Open.Filter = "|*.*"
       If Open.ShowDialog = Windows.Forms.DialogResult.OK Then
           TextBox1.Text = Open.FileName
           Dim inf As IO.DirectoryInfo = New IO.DirectoryInfo(Open.FileName)
           Label1.Text = inf.Name
           Label2.Text = inf.Root.CreationTime
           Label3.Text = inf.FullName
           Label4.Text = inf.LastWriteTime
           Label5.Text = inf.Attributes
           Label6.Text = inf.Extension
       End If
   End Sub
End Class