parallel.foreach vb.net

谁能告诉我如何在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);
    });
}

---

以及它引发的编译时异常。请告诉我，这段代码出了什么问题。

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

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

---

这段代码是从哪里来的？有很多代码转换网站。Dan-o我试过很多网站。但是它们没有正确地转换。Ash Burlaczenco我从某人的博客上得到了它编译时异常是什么？很好的简化示例。干杯

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