excel - 使用 ADODB 重命名 txt 文件而不创建新文件

Question

我的问题：我有很多要重命名的文本文件。我一直在使用 ADODB.Stream 对象来打开/读取/写入文件，因为它们是用 UTF-8 编码的。所以现在，如果可能的话，我想重命名文件而不复制它们的内容，将它们的内容写入具有所需名称的新文件并删除旧文件。文档上的时间戳对我来说是很有价值的信息，这就是我不想创建新文件的原因。

这是我当前的解决方法，它创建新文件并删除旧文件。代码问题：1) 复制的文件有新的时间戳 2) 新行不会被复制到新行中。由于它们包含某种 XML 代码，因此生成的文件变得难以阅读。我需要编写一段代码，在复制后在所有适当的位置设置新行。

        Sub renameModules()
        Dim currentTXT As Variant, newTxt As Variant
        Dim currentPath As String, newPath As String
        Dim currentContent As String
        currentPath = "C:\Users\Me\Desktop\Test\MyCurrent.txt"
        newPath = "C:\Users\Me\Desktop\Test\Target001.txt"

        Set currentTXT = CreateObject("ADODB.Stream")
        currentTXT.Charset = "utf-8"
        currentTXT.Open
        currentTXT.LoadFromFile (currentPath)
        currentContent = currentTXT.ReadText()

        Set newTxt = CreateObject("ADODB.Stream")
        newTxt.Charset = "utf-8"
        newTxt.Open
        newTxt.WriteText currentContent
        newTxt.savetofile newPath, 1

        Kill currentPath

        End Sub

为简单起见，我只包括了基本步骤，并省略了所有错误处理。

我的目标：找到一些方法来简单地重命名当前文件而不用摆弄它的内容。

标签： excelvba

Answer 1

无需处理ADODB.Stream：您不仅可以使用 VBA 命令name重命名文件，还可以将其移动到不同的文件夹：

Name currentPath As newPath