vb.net扫描rtf文件的安装文件夹

Question

有人知道代码，以便我的程序在地图中查找为rtf文档安装它并在组合框中显示它们。我正在制定议程。 它也可以在标题中搜索“VPA事件 - ”（这就是所有事件名称的开头）。如果我有代码，那么我可以使用这个来读取事件

Dim objreader2 As New System.IO.StreamReader(ComboBox1.Text & ".rtf")
RichTextBox2.Text = objreader2.ReadToEnd
objreader2.Close()

感谢

Answer 1

以下是可用于加载comboBox的代码。之后，您可以使用SelectedIndexChanged事件（或其他事件）将文件读入富文本框。我没有测试过，但它应该非常接近。

dim ss() as string

fPath = System.Windows.Forms.Application.UserAppDataPath
' or fPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments, or other directory
ss = Directory.GetFiles(fPath, "*.rtf")

ComboBox1.items.clear()
for each string s in ss
  ComboBox1.Items.add(s)
next s