vb.net - rtf ドキュメントの vb.net スキャン インストール フォルダー

Question

私のプログラムがrtfドキュメント用にインストールされているマップを調べて、それらをコンボボックスに表示するように、誰かがコードを知っていますか? 議事録を作っています。タイトルで「VPA イベント -」を検索することもできます (すべてのイベント名はこれで始まります)。それを行うコードがある場合、これを使用してイベントを読み取ることができます

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