如何從文件夾列表中選擇一個隨機文件夾？

Question

我想從指定的目錄中獲得一個隨機目錄，例如桌面。

即時通訊不知道如何做到這一點，這和我在與我的應用程序

比如我在桌面上5名不同的目錄，名稱

方向1 方向2 DIR3麻煩的唯一的事情等等......

我想獲得DIR3，那麼也許Dir1中，也許DIR3後再次，依此類推。我想從桌面上得到一個隨機目錄...不知道如何解釋它更好...

指定一個目錄 - 我指定的目錄可能在文本框中，例如。或文件夾瀏覽器對話框

還我只是想獲得目錄的路徑，我不想對它做任何事情。

如果有人可以提供一些信息，我會非常讚賞：d

感謝大家！

Answer 1

這有點像功課，我的氣味。但我有一些時間要殺人。下面的函數將路徑作爲字符串並將一個隨機子文件夾作爲字符串返回。

Public Function GetRandomSubFolder(path As String) As String 
    ''//Static create a Random object so that we do not create a new one each time 
    Static R As New Random() 

    ''//Sanity check 
    If Not System.IO.Directory.Exists(path) Then Throw New System.IO.DirectoryNotFoundException("path") 

    ''//Get the subfolders as an array 
    Dim SubFolders = System.IO.Directory.GetDirectories(path) 

    ''//Sanity check 
    If SubFolders.Count = 0 Then Throw New ApplicationException("Could not find any subfolders") 


    ''//Get a random number. The second parameter is exclusive so (0,4) will always return 3 as a maximum 
    Dim RandomIndex As Integer = R.Next(0, SubFolders.Count) 

    ''//Return the path at that index 
    Return SubFolders(RandomIndex) 
End Function 

Answer 2

太有趣了！ :-D

只要改變ParentFolder到要掃描的文件夾。

RandomFolder.bat

@Echo Off 
Set ParentFolder=C:\Users\Me\Desktop 
Set List= 
For /F "tokens=* delims=" %%d In ('Dir /b /ad "%ParentFolder%"') Do Call :AddToList "%%d" 
Set FolderCount=0 
Call :CountFolders %List% 
Set /a FolderIndex=%Random% %% %FolderCount% 
Call :SelectRandomFolder %List% 
Echo %RandomFolder% 
Exit /B 

:AddToList 
Set List=%List% %1 
Exit /B 

:CountFolders 
Shift 
If "%~1"=="" Exit /B 
Set /a FolderCount=%FolderCount% + 1 
Goto :CountFolders 

:SelectRandomFolder 
Set RandomFolder=%~1 
If %FolderIndex%==0 Exit /B 
Set /a FolderIndex=%FolderIndex% - 1 
Shift 
Goto :SelectRandomFolder