VB .NETサブフォルダなしでディレクトリをコピーする方法

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