How To Set Default Destination And Select Destination Paths In Vb.Net

See more:

VB

http://i1065.photobucket.com/albums/u394/Izaz_Ahmed/Capture_zpsmotjpbwe.jpg[^]

In the above URL you find a image where you can see 2 radio buttons where i can select default destination or select destination, But i dont know how to implement them in code. What i want is, when i select the Default Destination radio button and click the GENERATE HL7 Message button the file should be save in the Default destination and when i have to selected the Select Destination radio button then it should be alble to browse and select the folder and when i click the GENERATE HL7 Message button it should be save in the selected destination. I dont know how to do so. right now when i press the GENERATE HL7 Message it automatically saves in the given path in the code, you can check that in code.

Private Sub HL_Click(sender As Object, e As EventArgs) Handles HL.Click
        If vld(TxtProcode) = False Then
            Exit Sub
        End If
        Dim file As System.IO.StreamWriter
        Dim fileDateTime As String = DateTime.Now.ToString("yyyyMMdd") & DateTime.Now.ToString("HHmmss") & ".HL7"
        Dim ts As String = DateTime.Now.ToString("yyyyMMdd") & DateTime.Now.ToString("HHmmss")
        file = My.Computer.FileSystem.OpenTextFileWriter("C:\psave\New folder\" & fileDateTime, True)
        TxtDob.Format = DateTimePickerFormat.Custom
        TxtDob.CustomFormat = "yyyyMMdd"
        TxtExamtime.Format = DateTimePickerFormat.Custom
        TxtExamtime.CustomFormat = "hhMMss"
        TxtExamdate.Format = DateTimePickerFormat.Custom
        TxtExamdate.CustomFormat = "yyyyMMdd"
        file.WriteLine("MSH|^~\&|||||" & TxtExamdate.Text & "" & TxtExamtime.Text & "||ORM^O01||P|2.3.1")
        file.WriteLine("PID|||" & TxtId.Text & "||" & TxtFamilyname.Text & "^" & TxtGivenname.Text & "||" & TxtDob.Text & "||" & TxtGender.Text & "|||" & TxtStreet.Text & " " & TxtHouse.Text & "^^" & TxtCity.Text & "^^" & TxtPostcode.Text)
        file.WriteLine("PV1||O|||||||||||||||||" & TxtId.Text & "|||||||||||||||||||||||||" & ts)
        file.WriteLine("ORC|NW|" & ts & "|||||^^^S||" & TxtExamdate.Text)
        file.WriteLine("OBR||" & ts & "^" & ts & "||" & TxtProcode.Text & "|||" & TxtExamdate.Text & "" & TxtExamtime.Text & "|" & TxtExamdate.Text & "" & TxtExamtime.Text)
        file.WriteLine()
        file.Close()
        MessageBox.Show("HL7 Message Saved to " & fileDateTime, "HL7")
        TxtDob.Format = DateTimePickerFormat.Short
        TxtExamtime.CustomFormat = "hh:MM tt"
        TxtExamdate.CustomFormat = "dd-MMM-yy"
    End Sub