vb.net - vb.net 选择随机文件夹名称

Question

任何人都知道如何使用 vb.net 选择现有的随机目录名称（C:\ 驱动器）并将其位置存储在变量中。

我不得不谷歌这个，但似乎只能找到与文件相关的示例，而不是文件夹

Answer 1

试试这个，希望这能满足你的要求，

'----------------- Global Variables
Dim xCnter = 0
Dim xRndNo = 0
Dim xSubdirectory As String

Private Sub Basement()
     Dim xGenerator As System.Random = New System.Random()
     xRndNo = xGenerator.Next(1, 100)
     AssignRndDirectory("C:\")
     msgbox(subdirectory)
End Sub

Private Sub AssignRndDirectory(xPath as string)
     For Each subdirectory In Directory.GetDirectories(xPath)
        if xCnter = xRndNo then Exit sub
        xCnter += 1
        call AssignRndDirectory(subdirectory)
     Next 
End Sub

[注意：此代码未经 IDE 测试，如有错误请告诉我。]

---

编辑： TESTED WITH IDE

 Dim xCnter = 0
   Dim xRndNo = 0
   Dim xSubdirectory As String

   Private Sub Basement()

        Dim xGenerator As System.Random = New System.Random()
        xRndNo = xGenerator.Next(1, 100)
        AssignRndDirectory("C:\")
        MsgBox(xSubdirectory)

        xCnter = 0

    End Sub

    Private Sub AssignRndDirectory(ByVal xPath As String)

        Try

            For Each Subdirectory In Directory.GetDirectories(xPath)

                If xCnter = xRndNo Then Exit Sub
                xSubdirectory = Subdirectory
                xCnter += 1
                Call AssignRndDirectory(Subdirectory)

            Next

        Catch ex As Exception
            Exit Sub
        End Try

    End Sub

Answer 2

只需制作一个目录列表，然后从中选择一个随机项目。

Dim rnd As New Random()
Dim path As String = "C:\"
Dim dir = New DirectoryInfo(path)
Dim subDirs = dir.GetDirectories()
Dim randomDir = subdirs(rnd.[Next](subDirs.Length))

或者，如果您更喜欢 Linq，最后一行可以是：

Dim randomDirectory = subdirs.Skip(rnd.[Next](subdirs.Length)).First()