vb.net - vb.net 扫描安装文件夹以获取 rtf 文件

Question

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

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

谢谢

Answer 1

这是您可以用来加载组合框的代码。之后，您可以使用 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