このコードを修正してテキスト ファイルのみを選択するにはどうすればよいですか?

このコードを修正してテキスト ファイルのみを選択するにはどうすればよいですか?

ダイアログ ウィンドウからテキスト ファイルを選択するバッチ プログラムを実行していますが、代わりにすべての種類のファイルが選択されます。

実行しているバッチファイル:

    set dialog="about:<input type=file id=FILE><script>FILE.click();new ActiveXObject
    set dialog=%dialog%('Scripting.FileSystemObject').GetStandardStream(1).WriteLine(FILE.value);
    set dialog=%dialog%close();resizeTo(0,0);</script>"

    for /f "tokens=* delims=" %%p in ('mshta.exe %dialog%') do set "file=%%p"
    echo selected  file is : "%file%"
    pause

期待される出力:

ポップアップファイルブラウザは、*.txtすべてのファイルではなくテキストファイルのみを選択する必要があります。*.*

関連情報