vb.net選擇隨機文件夾名稱

Question

劑量任何人都知道如何使用vb.net選擇現有的隨機目錄名稱（C：\驅動器）並將其位置存儲在變量中。

我不得不GOOGEL這一個，但似乎只能夠找到例如有關的文件，而不是文件夾

Answer 1

只是做一個目錄列表，並從中選擇一個隨機項。

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

Answer 2

嘗試了這一點，希望這將滿足您的要求，

'----------------- 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