Question

我想复制目录中的所有文件，但忽略所有子文件夹。有没有一个功能可以做到这一点？

标准功能： My.Computer.FileSystem.CopyDirectory(inputDir.FullName, outputDir.FullName) 复制所有子文件夹。

迭代所有文件：

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

似乎工作正常。但它看起来太复杂了。有更简单的方法吗？

Answer 1

将其变成一个功能......

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"))

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

1 个答案: