如何在VBS中使用CreateTextFile 方法

在VBS中，可以使用CreateTextFile方法来创建一个文本文件。这个方法可以创建一个新文件，也可以重写一个已经存在的文件。CreateTextFile方法可以接受两个参数：文件名称和一个可选的布尔值，表示重写文件时是否追加内容。

下面是使用CreateTextFile方法创建一个新文件的基本语法：

Set objFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("文件路径")

在这个语法中，CreateObject方法会创建一个Scripting.FileSystemObject对象，然后使用它的CreateTextFile方法来创建一个新的文本文件。这个方法会返回一个指向文本文件的文件对象，我们可以使用这个对象来操作文本文件。

如果文件已经存在，CreateTextFile方法会将其覆盖。如果我们想以追加的方式写入文件，可以添加一个可选的参数：

Set objFile = CreateObject("Scripting.FileSystemObject").CreateTextFile("文件路径",true)

在这个语法中，第二个参数为true表示以追加的方式写入文件。这样，我们可以将新的文本内容追加到文件的末尾。

例子1：

下面是一个简单的例子，我们使用CreateTextFile方法创建一个名为myFile.txt的新文件，然后在里面写入一些文本内容：

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile("C:\myFile.txt")

objFile.Write "这是一个新文件。"

objFile.Close

在这个例子中，我们首先创建一个Scripting.FileSystemObject对象，然后使用CreateTextFile方法创建一个名为myFile.txt的新文件。接下来，我们使用文件对象的Write方法写入一些文本内容，最后使用Close方法关闭文件。如果我们运行这个脚本，就可以在C:\文件夹下找到一个名为myFile.txt的新文件，里面包含了我们写入的文本内容。

例子2：

下面是一个稍微复杂一些的例子，我们使用CreateTextFile方法创建一个新文件，然后将一些从键盘输入的文本内容写入文件：

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set objFile = objFSO.CreateTextFile("C:\input.txt")

Do While True

   input = InputBox("请输入文本：")

   If input = "" Then Exit Do

   objFile.WriteLine input

Loop

objFile.Close

在这个例子中，我们首先使用CreateTextFile方法创建一个名为input.txt的新文件。然后，我们使用一个无限循环，不断弹出一个输入框，要求用户输入文本内容。如果用户输入了空字符串，则退出循环。在每次循环中，我们使用文件对象的WriteLine方法将用户输入的文本写入文件。最后，我们使用Close方法关闭文件。

总结：

CreateTextFile方法是一个十分常用的VBS文件操作方法，特别是在需要动态创建或修改文件内容时。通过上述的例子，可以清晰地了解到如何在VBS中使用CreateTextFile方法，并结合实际情况灵活操作。