vb.net - 「\appdata\roaming」にアクセスし、いくつかのディレクトリに移動してファイルを検索するにはどうすればよいですか?

Question

私のプログラム (Visual Basic 2010) は、さまざまな人のマシンで実行する必要があるため、%appdata% のような相対パスを使用する必要がありますが、ランダムな名前のディレクトリからファイルを取得する必要もあります。こんな感じです：

C:\Users\Administrator\AppData\Roaming\Dir1\Dir2\Dir3\Random-NameDir\file

また、ランダムに名前が付けられたディレクトリは、Dir3 内の唯一のディレクトリです。（ところで、ファイルパスを取得しようとしています）

私はこれを使用できますが、ランダムなディレクトリを通過しません (そして、そこにある環境クラスで検索する方法が見つかりません)

Dim a As New Attachment(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Dir1\Dir2\Dir3")

そして、これを試してみると、

For Each foundFile As String In My.Computer.FileSystem.GetFiles( _
    My.Computer.FileSystem.SpecialDirectories.CurrentUserApplicationData & "\Dir1\Dir2\Dir3", _
    FileIO.SearchOption.SearchAllSubDirectories, "MyFile.ext")
    ListBox1.Items.Add(foundFile)
    Next

AppData は、appdata\roaming 内のフォルダーである WindowsApplicaiton1\1.0.0 何かに私を送信します。

基本的に私の質問は、電子メールの添付ファイルとして使用できるファイル パスを取得するために、ランダムに名前が付けられたディレクトリ (アプリケーション データ内) のみに検索を制限して、ファイルを検索できますか?