Question

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

我不得不googel这个，但似乎只能找到与文件有关的例子，而不是文件夹

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()

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

2 个答案: