vb.net - VB 2010ランダムなサブフォルダーを返し、そのフォルダーをWindowsエクスプローラーで開くにはどうすればよいですか

Question

VB 2010 を使用してランダムなサブ ディレクトリを返し、そのディレクトリを Windows エクスプローラーで開くにはどうすればよいですか。

メイン ディレクトリ C:\test\ があり、テスト ディレクトリ内からランダムなサブ ディレクトリのパス (文字列として) を開くか表示したいと考えています。

VB フォームでボタンを押すと、ランダムなディレクトリに移動するのが理想的です。

私は Visual Basic に慣れていないので、どんな助けも素晴らしいでしょう。

Answer 1

次のコードを試してください

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'Directory info for the starting folder.
    Dim DirectoryInfo1 As New IO.DirectoryInfo("C:\test\")
    'An array of all the subdirectories of the starting folder.
    Dim Directories1() As IO.DirectoryInfo = DirectoryInfo1.GetDirectories("*", IO.SearchOption.AllDirectories)

    'Random number generator.
    Dim Random1 As New Random
    'Gets a random index from the subdirectories array.
    Dim RandomIndex1 As Integer = Random1.Next(0, Directories1.Length - 1)

    'Shows the path of a random directory.
    MsgBox(Directories1(RandomIndex1).FullName)

    'Opens the random directory inside windows explorer.
    Process.Start("explorer.exe", Directories1(RandomIndex1).FullName)
End Sub