随机选择文件夹中的文件并移动到另一个文件夹

Question

我需要从目录中选择一个文件并移至另一个目录。为了做到这一点，我需要随机选择一个文件。

我需要选择一个随机文件（任何外部可以），但我不知道如何使用return，因为我是VB.NET的新手。所以请给出想法和代码。

Answer 1

是否这样？

Sub MoveRandomFile(from$, to$) 
    Static r As New Random 
    Dim Files = New IO.DirectoryInfo([from]).GetFiles 
    Dim FileToMove = Files(r.Next(0, Files.Count)) 

    IO.File.Move(FileToMove.FullName, FileToMove.FullName.Replace([from], [to])) 
End Sub 

或者，如果你只是想返回一个随机文件：

Function GetRandomFile(folder$) As IO.FileInfo 
    Static r As New Random 
    Dim Files = New IO.DirectoryInfo(folder).GetFiles 

    Return Files(r.Next(0, Files.Count)) 
End Function 

static关键字创建变量第一次调用该方法，并保持它的下一次。 我们需要这样做的原因是因为随机对象使用种子，就像在Minecraft中一样，并且使用关于正在运行的进程的信息来生成此种子。所以如果你每次创建一个新的随机对象，每次都会选择相同的文件。