VBS操作文件：读取、写入、创建与删除

"这篇内容主要介绍了如何使用VBScript（VBS）进行文件的读写、创建和删除操作。通过创建`Scripting.FileSystemObject`对象，我们可以实现对文件系统的各种操作。" 在VBScript中，我们可以利用`Scripting.FileSystemObject`（FSO）对象来处理文件系统任务。首先，我们需要创建FSO对象，如下所示： ```vbscript set fso = CreateObject("Scripting.FileSystemObject") ``` 接下来，我们可以通过`FileExists`方法检查一个文件是否存在，例如： ```vbscript if fso.FileExists("a.txt") then ' 文件存在，执行读取或修改操作 else ' 文件不存在，创建新文件 set file = fso.CreateTextFile("a.txt", 2, true) ' 写入文件内容 file.WriteLine "welcome!" file.WriteLine "thanks!" file.Close end if ``` 在上述代码中，`CreateTextFile`方法用于创建新的文本文件，参数2表示以写入模式打开文件（如果文件已存在则覆盖），参数3表示如果文件不存在则创建。 读取文件内容时，可以使用`OpenTextFile`方法： ```vbscript set file = fso.OpenTextFile("a.txt", 1, true) ``` 这里，参数1是打开模式，1代表只读，然后可以使用`ReadLine`、`Read`或`ReadAll`方法读取文件内容。例如，使用`ReadLine`逐行读取： ```vbscript line = 1 do while not file.AtEndOfStream zsc.Add line, file.ReadLine line = line + 1 loop ``` `AtEndOfStream`属性用于检查是否到达文件末尾，`ReadLine`读取一行内容并添加到字典`zsc`中。 当完成读取后，记得关闭文件： ```vbscript file.Close ``` 除了读写文件，还可以使用FSO对象执行其他操作，如运行命令创建文件： ```vbscript set ws = CreateObject("WScript.Shell") ws.Run "cmd/c@echo var > zsc.txt", 1 ``` 以及删除文件和文件夹： ```vbscript fso.DeleteFile "a.txt" fso.DeleteFolder "F:\abc" ``` 此外，可以批量创建多个文件： ```vbscript for i = 1 to 9999 set file = fso.CreateTextFile("c:\aa" & i & ".txt", true) file.Close next ``` 以上就是VBScript中处理文件的基本操作，包括读、写、创建和删除文件。这些功能对于自动化脚本或批处理任务非常实用。