投稿者 豆腐  (社会人) 投稿日時 2023/7/13 00:17:27
■魔界の仮面弁士様、さすがです。
ご提示のコードで期待通りの結果がListBoxに表示されました。
結果さえ得られればいいので、これで十分です。
結果をファイル経由やクリップボード経由でVBAからも利用できると思います。

■ShellFolderViewを使ったサンプルも、ありがとうございます。
「search-msプロトコル」で検索して、こちらの方法でも検索結果を得られますね。
時間が取れたら、VBA用に移植してみます。

■その後、「WindowsAPICodePack.Shell」を使った「コンテンツ検索」で分かった事があるので、情報共有の為、記しておきます。
Excelファイル(.xlsx)、Wordファイル(.docx)、テキストファイル(.txt)(ANSI/UTF8)、PDFファイル(.pdf)の4形式で実験しました。

(1)「コンテンツ検索時」の「SearchCondition作成用」の「PropertyKey」は
  「SystemProperties.System.FullText」か「SystemProperties.System.Search.Contents」が使える。
(2)「SystemProperties.System.FullText」と「SystemProperties.System.Search.Contents」の違いは、
    ファイル名+コンテンツを検索対象とする場合=>「SystemProperties.System.FullText」
    コンテンツのみを検索対象とする場合=>「SystemProperties.System.Search.Contents」
(3)テキストファイルについてはANSIのみ抽出されUTF8は検索できなかった。
  =>何か設定があると思いますが現時点では不明。
(4)「SystemProperties.System.Search.Contents」だと「NotEqual」が使える。
(5)「Equal」「WordEqual」「WordStartsWith」は同じ結果となった。
(6)以下に使用可能な「SearchConditionOperation」との組み合わせを表にしました。
  「●」が使用可能な組合せです。
 
┌──────────────┬────┬────────┐
│ SearchConditionOperation   │FullText│Search.Contents │
├──┬───────────┼────┼────────┤
│   0│Implicit              │        │                │
├──┼───────────┼────┼────────┤
│   1│Equal                 │        │       ●       │
├──┼───────────┼────┼────────┤
│   2│NotEqual              │        │       ●       │
├──┼───────────┼────┼────────┤
│   3│LessThan              │        │                │
├──┼───────────┼────┼────────┤
│   4│GreaterThan           │        │                │
├──┼───────────┼────┼────────┤
│   5│LessThanOrEqual       │        │                │
├──┼───────────┼────┼────────┤
│   6│GreaterThanOrEqual    │        │                │
├──┼───────────┼────┼────────┤
│   7│ValueStartsWith       │        │                │
├──┼───────────┼────┼────────┤
│   8│ValueEndsWith         │        │                │
├──┼───────────┼────┼────────┤
│   9│ValueContains         │        │                │
├──┼───────────┼────┼────────┤
│  10│ValueNotContains      │        │                │
├──┼───────────┼────┼────────┤
│  11│DosWildcards          │        │                │
├──┼───────────┼────┼────────┤
│  12│WordEqual             │   ●   │       ●       │
├──┼───────────┼────┼────────┤
│  13│WordStartsWith        │   ●   │       ●       │
├──┼───────────┼────┼────────┤
│  14│ApplicationSpecific   │        │                │
└──┴───────────┴────┴────────┘


■掲示板ネタで「なるほど、こういう需要もあるな」と思ったので、調査してみました。
元質問とは違う方向へ行きましたが、魔界の仮面弁士様のおかげで、十二分に満足いく成果を得られました。
もうお腹一杯なので、ここらで終わりにしたいと思います。