在 Visual Basic 中的“保存文件”对话框中筛选文件夹

Question

我正在用 Visual Basic 创建一个应用程序，它创建一个目录并将文本文件放入其中，但我想查看用户想要从中获取文本文件的目录。我决定使用 OpenFileDialog 选项效果最好。我会为OpenFileDialog 使用什么过滤器？

对于文件夹和文件的创建：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        My.Computer.FileSystem.CreateDirectory("C:/Organizer/" + BusinessName.Text)

        Dim objWriter9 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "Address" + ".txt")
        objWriter9.Write(Address.Text)
        objWriter9.Close()

        Dim objWriter As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "BusinessName" + ".txt")
        objWriter.Write(BusinessName.Text)
        objWriter.Close()

        Dim objWriter1 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "AssociateName" + ".txt")
        objWriter1.Write(AssociateName.Text)
        objWriter1.Close()

        Dim objWriter2 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "PhoneNumber" + ".txt")
        objWriter2.Write(PhoneNumber.Text)
        objWriter2.Close()

        Dim objWriter3 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "Email" + ".txt")
        objWriter3.Write(Email.Text)
        objWriter3.Close()

        If CheckBox1.Checked Then
            Dim objWriter4 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + "Other" + ".txt")
            objWriter4.Write(Other1.Text)
            objWriter4.Close()
        End If

        If CheckBox5.Checked Then
            Dim objWriter5 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + BusinessName.Text + "Other1" + ".txt")
            objWriter5.Write(Other3.Text)
            objWriter5.Close()
        End If

        If CheckBox4.Checked Then
            Dim objWriter6 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + BusinessName.Text + "Other2" + ".txt")
            objWriter6.Write(Other5.Text)
            objWriter6.Close()
        End If

        If CheckBox3.Checked Then

        End If
        Dim objWriter7 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + BusinessName.Text + "Other3" + ".txt")
        objWriter7.Write(Other7.Text)
        objWriter7.Close()

        If CheckBox5.Checked Then
            Dim objWriter8 As New System.IO.StreamWriter("C:/Organizer/" + BusinessName.Text + "/" + BusinessName.Text + "Other4" + ".txt")
            objWriter8.Write(Other9.Text)
            objWriter8.Close()
        End If

    End Sub
End Class

对于它的加载（到目前为止）：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Button1.Hide()
    Label1.Show()
    Label2.Show()
    Label3.Show()
    Label4.Show()
    Label5.Show()
    Label6.Show()
    Label7.Show()
    Label8.Show()
    Label9.Show()
    Label10.Show()
    Label11.Show()
    Label12.Show()
    Label13.Show()
    Label14.Show()
    Label15.Show()
    Label16.Show()
    Label17.Show()
    OpenFileDialog1.InitialDirectory = "C:/Organizer"
    OpenFileDialog1.Filter = "Folder|"
    OpenFileDialog1.ShowDialog()
    My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)

Answer 1

我意识到，我可以使用FolderBrowserDialog，而不是使用OpenFileDialog