parallel.foreach vb.net

Question

有谁能请给我正确的语法如何在vb.net中编写以下代码

public static void CopyFiles(string fromFolder, string toFolder)
{
    Parallel.ForEach<string>(Directory.EnumerateFiles(fromFolder, "*"), f =>
    {
        File.Copy(f, toFolder + @"\" + Path.GetFileName(f), true);
    });
}

我尝试使用developerfusion.com/tools/convert/csharp-to-vb进行转换，转换代码为： -

Public Shared Sub CopyFiles(fromFolder As String, toFolder As String)

    Parallel.ForEach(Of String)(Directory.EnumerateFiles(fromFolder, "*"), Function(f) 
    File.Copy(f, toFolder & "\" & Path.GetFileName(f), True)
    End Function)

End Sub

及其抛出编译时异常。请告诉我这个代码出了什么问题。

Answer 1

当您没有返回值时，您正在创建一个函数，请尝试创建一个子例程。看看是否有效。

Public Shared Sub CopyFiles(fromFolder As String, toFolder As String)
    Parallel.ForEach(Of String)(Directory.EnumerateFiles(fromFolder, "*"),
        Sub(f)
            File.Copy(f, toFolder & "\" & Path.GetFileName(f), True)
        End Sub)
End Sub