openfiledialog'tan dosya uzantısını bulma.

Public Class Form1 
      Dim FileN As String 
      Dim Dic As New OpenFileDialog 
      Dim File As New SaveFileDialog 
   
      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
          Dic.Title = "Kopyalanacak Dosyayı Seçiniz" 
          Dic.FileName = "" 
          If Dic.ShowDialog = DialogResult.OK Then 
              Button2.Enabled = True 
          End If 
      End Sub 
   
      Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
          File.Title = "Kayıt Edilecek Yeri Seçiniz" 
          FileN = Dic.FileName 
         [color=#FF0000] File.FileName = FileN[/color] 
          If File.ShowDialog = Windows.Forms.DialogResult.OK Then 
              Button3.Enabled = True 
          End If 
      End Sub 
   
      Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
          FileCopy(Dic.FileName, File.FileName) 
      End Sub 
   
      Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged 
          Label1.Top = 16 
          Me.BackColor = Color.Orange 
      End Sub 
   
      Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged 
          Label1.Top = 37 
          Me.BackColor = Color.DarkRed 
      End Sub 
   
      Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged 
          Label1.Top = 60 
          Me.BackColor = Color.WhiteSmoke 
      End Sub 
  End Class