Aug 20

Written by: Steve Gray
8/20/2010 6:08 PM 

This code was written against Visual Studio 2010

You’ll need to first drop the OpenFileDialog control onto your form

        OpenFileDialog1.Filter = "XML Files|*.xml|All files (*.*)|*.*"
        OpenFileDialog1.Title = "Select an XML File"
        'OpenFileDialog1.InitialDirectory = "c:\"
        'OpenFileDialog1.FilterIndex = 2
        'OpenFileDialog1.RestoreDirectory = True
        OpenFileDialog1.FileName = ""
        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Me.txtSourceFile.Text = OpenFileDialog1.FileName
            Dim strPath = Path.GetDirectoryName(Me.txtSourceFile.Text)
            Dim strFileName = Path.GetFileNameWithoutExtension(Me.txtSourceFile.Text)
            Me.txtDestinationFile.Text = Path.Combine(strPath, strFileName & "OUT.XML")
        End If