VB.NET如何复制没有子文件夹的目录

我不希望复制目录中的所有文件，但忽略所有子文件夹。是否有一个单一的功能来执行此操作

标准功能：

My.Computer.FileSystem.CopyDirectory（inputDir.FullName，outputDir.FullName）

复制所有子文件夹

迭代所有文件：

For Each file In inputDir.GetFiles()
    file.CopyTo(Path.Combine(outputDir.FullName, file.Name), True)
Next

---

看起来很好用。但对我来说太复杂了。有更简单的方法吗？

把它变成一个函数

Public Sub CopyFiles(inputPath As System.IO.DirectoryInfo,
                     outputPath As System.IO.DirectoryInfo)
    For Each fi In inputPath.GetFiles()
        fi.CopyTo(Path.Combine(outputPath.FullName, fi.Name), True)
    Next
End Sub

。。。所以，当你想使用它时，可以这样简单地称它

CopyFiles(New DirectoryInfo("C:\test1"), New DirectoryInfo("C:\test2"))

---

我觉得还好吧

CopyDirectory（）

不提供不复制子目录的重载。