【vbs指令大全】VBScript（Visual Basic Script）是一种轻量级的脚本语言，广泛用于Windows系统中的自动化任务、网页脚本和系统管理。虽然VBScript在现代开发中逐渐被JavaScript等语言取代，但在一些旧系统或特定环境中仍具有重要价值。以下是对常见VBScript指令的总结，便于快速查阅与使用。
一、常用VBScript指令总结
| 指令/功能 | 说明 | 示例 |
| `Dim` | 声明变量 | `Dim strName` |
| `Set` | 为对象变量赋值 | `Set objFSO = CreateObject("Scripting.FileSystemObject")` |
| `CreateObject` | 创建COM对象 | `Set objFile = CreateObject("Scripting.File")` |
| `GetObject` | 获取已存在的对象 | `Set objShell = GetObject("winmgmts:\\.")` |
| `MsgBox` | 显示消息框 | `MsgBox "Hello, World!"` |
| `InputBox` | 显示输入对话框 | `strName = InputBox("请输入您的名字：")` |
| `If...Then...Else` | 条件判断语句 | `If x > 10 Then MsgBox "大于10" Else MsgBox "小于等于10"` |
| `For...Next` | 循环语句 | `For i = 1 To 5: MsgBox i: Next` |
| `While...Wend` | 循环语句 | `While i < 5: i = i + 1: Wend` |
| `Do While...Loop` | 循环语句 | `Do While i < 5: i = i + 1: Loop` |
| `Select Case` | 多条件判断 | `Select Case num: Case 1: MsgBox "One": End Select` |
| `Function` | 定义函数 | `Function Add(a, b): Add = a + b: End Function` |
| `Sub` | 定义子程序 | `Sub Greet(): MsgBox "您好！": End Sub` |
| `Exit For` / `Exit Do` | 退出循环 | `Exit For` |
| `Err.Number` | 获取错误代码 | `If Err.Number <> 0 Then MsgBox "错误：" & Err.Number` |
| `On Error Resume Next` | 错误处理 | `On Error Resume Next` |
| `On Error GoTo` | 错误跳转处理 | `On Error GoTo ErrorHandler` |
二、文件操作相关指令
| 指令/功能 | 说明 | 示例 |
| `CreateTextFile` | 创建文本文件 | `objFSO.CreateTextFile("C:\test.txt")` |
| `OpenTextFile` | 打开文本文件 | `Set objFile = objFSO.OpenTextFile("C:\test.txt", 1)` |
| `WriteLine` | 写入一行内容 | `objFile.WriteLine "这是第一行"` |
| `ReadLine` | 读取一行内容 | `strLine = objFile.ReadLine` |
| `Close` | 关闭文件 | `objFile.Close` |
| `DeleteFile` | 删除文件 | `objFSO.DeleteFile "C:\test.txt"` |
| `CopyFile` | 复制文件 | `objFSO.CopyFile "C:\source.txt", "C:\dest.txt"` |
| `MoveFile` | 移动文件 | `objFSO.MoveFile "C:\source.txt", "C:\newfolder\"` |
三、系统操作相关指令
| 指令/功能 | 说明 | 示例 |
| `Shell` | 运行外部程序 | `Shell "notepad.exe"` |
| `WScript.Quit` | 退出脚本 | `WScript.Quit` |
| `WScript.Arguments` | 获取命令行参数 | `strArg = WScript.Arguments(0)` |
| `WScript.ScriptFullName` | 获取当前脚本路径 | `MsgBox WScript.ScriptFullName` |
四、字符串与数组操作
| 指令/功能 | 说明 | 示例 |
| `Len` | 获取字符串长度 | `Len("Hello")` |
| `Left` | 取左边字符 | `Left("Hello", 3)` |
| `Right` | 取右边字符 | `Right("Hello", 2)` |
| `Mid` | 截取中间字符 | `Mid("Hello", 2, 3)` |
| `Split` | 分割字符串 | `arr = Split("a,b,c", ",")` |
| `Join` | 合并数组元素 | `str = Join(arr, ",")` |
五、日期与时间操作
| 指令/功能 | 说明 | 示例 |
| `Now` | 获取当前日期和时间 | `MsgBox Now` |
| `Date` | 获取当前日期 | `MsgBox Date` |
| `Time` | 获取当前时间 | `MsgBox Time` |
| `DateAdd` | 添加日期 | `DateAdd("d", 1, Now)` |
| `DateDiff` | 计算日期差 | `DateDiff("d", "2024-01-01", Now)` |
六、其他实用指令
| 指令/功能 | 说明 | 示例 |
| `IsNumeric` | 判断是否为数字 | `If IsNumeric(str) Then MsgBox "是数字"` |
| `IsObject` | 判断是否为对象 | `If IsObject(obj) Then MsgBox "是对象"` |
| `TypeName` | 获取变量类型 | `MsgBox TypeName(x)` |
| `Empty` | 表示变量未初始化 | `Dim x: If IsEmpty(x) Then MsgBox "未初始化"` |
总结
VBScript虽然简单，但功能强大，尤其在系统管理和自动化任务中表现突出。掌握其基本指令有助于提升工作效率。本文整理了常用的VBScript指令，涵盖变量声明、流程控制、文件操作、系统调用等多个方面，适合初学者和有一定基础的用户参考使用。