如何在vb.net中添加Folderbrowserdialog [英] How to add Folderbrowserdialog in vb.net

问题描述

我已经定义了保存文件的目标文件夹，我还要选择我的目标文件夹选择吗？我不知道怎么做。[/ b]



这是我的代码：

I have already defined destination folder to save the file, and i want to select my choice of destination folder also?. i dont know how to do it.[/b]

Here is my code:

Private Sub BtnBrowse_Click(sender As Object, e As EventArgs) Handles BtnBrowse.Click
        Fbd.ShowDialog()
        TxtPath.Text = Fbd.SelectedPath
    End Sub

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
End Class

推荐答案

请参阅： ^ ] - 在页面底部你会找到一个例子。

Please, see: FolderBrowserDialog Class[^] - on the bottom of page you'll find an example.

这篇关于如何在vb.net中添加Folderbrowserdialog的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！