复制文件并从列表中重命名

Question

我有一个程序需要制作很多副本。例如，1个文件夹中的9个copie。

然后我需要以不同的名称重命名这些副本，从* .txt文件中获取名称。我试着去做但我不能做好。

Private Sub renameFilesInFolderChronologically()
  Dim sourcePath As String = "e:\temp\demo"
  Dim searchPattern As String = "*.txt"

  Dim curDir As New DirectoryInfo(sourcePath)

  Dim i As Integer = 0
  For Each fi As FileInfo In curDir.GetFiles(searchPattern).OrderBy(Function(num) num.CreationTime)
    File.Move(fi.FullName, Path.Combine(fi.Directory.FullName, "txtFile_" & i & ".txt"))
    i += 1
  Next
End Sub