本文介绍了如何在vb.net中添加Folderbrowserdialog的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我已经定义了保存文件的目标文件夹,我还要选择我的目标文件夹选择吗?我不知道怎么做。[/ 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
推荐答案
这篇关于如何在vb.net中添加Folderbrowserdialog的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持!