如何在vb 2010控制台或Windows应用程序中将文本文件从一个文件夹自动复制到另一个文件夹

Question

我想创建一个程序，将文本文件从一个文件夹自动复制到另一个文件夹。 是否可以在vb.net中以Windows形式制作？ 如果不是，那么在控制台应用程序中呢？ 我试图搜索，但都没有找到答案。 请帮助我，我是新来的。 我想将所有保存到c：folder1 \\ test1.text的文本文件复制到c：folder2 \\ test1.text，然后将test2.text，test3.text复制到folder1中的所有文本文件。 我想复制到folder2。
现在我只有这个代码：它将仅复制1个文件名为test.txt的特定文本文件。

enter code here

My.Computer.FileSystem.CopyFile("C:\CopyTo\test.txt", 
"C:\CopyHere\test.txt")

Answer 1

当然！ 首先，我们需要一个搜索文件的功能。

Public Sub SearchFiles(ByVal Pattern As String, ByVal Path As String, ByVal FilesFound As ArrayList)
    FilesFound.AddRange(Directory.GetFiles(Path, Pattern))
End Sub

但是我们应该在哪里保存文件列表？ 我们可以使用数组。 另外，我们应该定义输出和输入文件夹

Dim files As New ArrayList
Dim inDir As String = "input path"
Dim outDir As String = "output path"

我们现在可以像这样调用此函数：

SearchFiles("*.txt", inDir, files)

文件夹中的所有.txt文件现在都保存在我们的数组列表中。 但是我们如何使用它呢？ 我们现在可以像这样使用它：

Try
  For Each file As String In files
    Dim fName As String = Path.GetFileName(file)
    My.Computer.FileSystem.CopyFile(file , outDir & "\" & fName, overwrite:=False)
  Next
Catch ex As Exception
  Console.WriteLine(ex.ToString)
End Try

这会将在inDir中找到的每个.txt文件复制到outDir中。 如果出现问题，您将在控制台中看到。 尝试一下，了解其工作原理:)