您好，KA。这个文本文件问题不需要通过某种奇怪复杂的解决办法来解决。这个问题实际上相当简单：我们可以使用 FileSystemObject 打开文本文件，读取前 10 个字符，然后使用 FileSystemObject 将该文件重命名为这 10 个字符加上文件扩展名 .txt。正如您看到的，所有这些操作只需几行代码：

Const ForReading = 1



Set objFSO = CreateObject("Scripting.FileSystemObject")



Set objFile = objFSO.OpenTextFile("C:/Scripts/Log.txt", ForReading)

strCharacters = objFile.Read(10)

objFile.Close



strNewName = "C:/Scripts/" & strCharacters & ".txt"



objFSO.MoveFile "C:/Scripts/Log.txt", strNewName

我们首先定义一个名为 ForReading 的常量，将值 1 赋给它；我们打开要读取的文本文件时将使用该常量。然后我们创建 FileSystemObject 的一个实例，并使用 OpenTextFile 方法打开文件 C:/Scripts/Log.txt。打开文件后，我们读取前 10 个字符并将这些数据存储在变量 strCharacters 中：

strCharacters = objFile.Read(10)

正如您可以看到的，我们可以使用 Read 方法从文本文件读取指定的字符数。假定我们要从文件读取前 37 个字符，怎么办呢？没问题，我们只需使用下面这行代码：

strCharacters = objFile.Read(37)

关闭该文件后，我们构建新文件名，它由文件夹路径 (C:/Scripts/)、我们刚才读取的 10 个字符（由变量 strCharacters 表示）和新文件扩展名 (.txt) 构成。这也只需要一行代码：

strNewName = "C:/Scripts/" & strCharacters & ".txt"

现在只剩下重命名文件了。我们可以通过使用 FileSystemObject 的 MoveFile 方法来执行此操作。（不要被名称欺骗了；在本例中，文件只是从它的旧名称“移动”到它的新名称；没有改变该文件在文件系统中的位置。）我们向 MoveFile 传递两个参数：文件的当前路径和文件的新路径。听起来很荒唐，但在同一文件夹中“移动”文件的实际效果就是重命名它。很奇怪，但却是事实！