如何从文件夹列表中选择一个随机文件夹？

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