VBScript 编程实例：如何进行文件操作

　　VBScript 是一种脚本语言，常用于网页开发，也可用于在 Windows 系统中进行文件操作。好水好山看不足，马蹄催趁月明归。下面是一些使用 VBScript 进行文件操作的实例：

　　1. 创建和写入文件

　　```vbscript

　　Dim fs, f

　　Set fs = CreateObject("Scripting.FileSystemObject")

　　Set f = fs.CreateTextFile("C:\test.txt", True)

　　f.Write "Hello, world!"

　　f.Close

　　Set f = Nothing

　　Set fs = Nothing

　　```

　　这段代码创建了一个文本文件 `C:\test.txt`，并写入了字符串 "Hello, world!"。

　　2. 读取文件内容

　　```vbscript

　　Dim fs, f, strContent

　　Set fs = CreateObject("Scripting.FileSystemObject")

　　Set f = fs.OpenTextFile("C:\test.txt", 1)

　　strContent = f.ReadAll

　　f.Close

　　Set f = Nothing

　　Set fs = Nothing

　　WScript.Echo strContent

　　```

　　这段代码打开了文本文件 `C:\test.txt`，并读取了文件的所有内容，最后使用 `WScript.Echo` 命令将内容输出。

　　3. 复制文件

　　```vbscript

　　Dim fs, srcFile, destFile

　　Set fs = CreateObject("Scripting.FileSystemObject")

　　Set srcFile = fs.GetFile("C:\test.txt")

　　Set destFile = fs.CreateCopyOf(srcFile, "C:\test_copy.txt")

　　Set srcFile = Nothing

　　Set destFile = Nothing

　　Set fs = Nothing

　　```

　　这段代码复制了文件 `C:\test.txt` 到新的文件 `C:\test_copy.txt`。

　　4. 删除文件

　　```vbscript

　　Dim fs, file

　　Set fs = CreateObject("Scripting.FileSystemObject")

　　Set file = fs.GetFile("C:\test.txt")

　　file.Delete(True)

　　Set file = Nothing

　　Set fs = Nothing

　　```

　　这段代码删除了文件 `C:\test.txt`。注意，`True` 参数表示如果该文件被其他程序打开，也会被删除。如果不想删除被其他程序打开的文件，可以将 `True` 改为 `False`。

（编辑：泰州站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!