【vbs实用代码】在日常的Windows系统维护与自动化操作中，VBScript（简称VBS）是一种非常实用的脚本语言。虽然它已经逐渐被PowerShell等现代工具取代，但在一些旧系统或特定场景中，VBS仍然有其不可替代的作用。以下是一些常见的VBS实用代码示例，帮助提高工作效率。
一、VBS实用代码总结
| 功能 | 代码示例 | 说明 |
| 显示消息框 | `MsgBox "Hello, World!"` | 弹出一个包含指定信息的消息框 |
| 创建文本文件 | ```Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.CreateTextFile("C:\test.txt", True) file.WriteLine("这是测试内容") file.Close``` | 在指定路径创建并写入文本文件 |
| 读取文本文件 | ```Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("C:\test.txt", 1) msgbox file.ReadAll file.Close``` | 读取并显示文本文件内容 |
| 获取当前时间 | `MsgBox Now` | 显示当前系统时间 |
| 执行外部程序 | `CreateObject("WScript.Shell").Run "notepad.exe"` | 启动记事本程序 |
| 删除文件 | `Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile "C:\test.txt"` | 删除指定路径下的文件 |
| 检查文件是否存在 | ```Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists("C:\test.txt") Then MsgBox "文件存在" Else MsgBox "文件不存在" End If``` | 判断文件是否存在 |
| 显示进度条 | 使用 `WScript.Echo` 或 `MsgBox` 配合循环模拟 | 可用于简单的进度反馈 |
二、使用建议
- 安全性：VBS脚本可能被用于恶意目的，因此在运行未知来源的脚本时需格外小心。
- 兼容性：VBS在较新的Windows版本中仍可运行，但推荐在新项目中使用PowerShell。
- 调试：可以通过 `WScript.Echo` 输出调试信息，便于排查问题。
通过合理使用这些VBS实用代码，可以在不安装额外软件的情况下完成许多基础的系统任务。如果你正在处理旧系统或需要快速实现某些功能，VBS仍然是一个值得掌握的工具。
