异常教程
VBScript 教程（超详细）
💡一则或许对你有用的小广告
欢迎加入小哈的星球 ，你将获得：专属的项目实战 / 1v1 提问 / Java 学习路线 / 学习打卡 / 每月赠书 / 社群讨论
- 新项目:《从零手撸：仿小红书（微服务架构）》 正在持续爆肝中，基于
Spring Cloud Alibaba + Spring Boot 3.x + JDK 17...，点击查看项目介绍 ;- 《从零手撸：前后端分离博客项目（全栈开发）》 2 期已完结，演示链接： http://116.62.199.48/ ;
截止目前， 星球 内专栏累计输出 82w+ 字，讲解图 3441+ 张，还在持续爆肝中.. 后续还会上新更多项目，目标是将 Java 领域典型的项目都整一波，如秒杀系统, 在线商城, IM 即时通讯，权限管理，Spring Cloud Alibaba 微服务等等，已有 2900+ 小伙伴加入学习 ，欢迎点击围观
VBScript 教程：从基础到实战的全面指南
前言
VBScript（Visual Basic Scripting Edition）是一种轻量级脚本语言，广泛应用于Windows系统管理和自动化任务。尽管随着技术发展，许多开发者转向更现代的工具，但VBScript在特定场景（如批处理文件、网络配置、简单自动化）中仍具有不可替代的价值。本教程将从零开始，逐步讲解VBScript的核心概念与实践技巧，帮助读者掌握这一工具的实用能力。
安装与环境配置
VBScript无需单独安装，它默认集成在Windows操作系统中（Windows 98及以上版本）。要编写和运行VBScript，仅需以下工具：
- 文本编辑器（如Notepad）：用于编写脚本代码。
- Windows Script Host（WSH）：系统内置的脚本执行引擎。
运行第一个VBScript程序
创建一个文本文件，命名为hello.vbs，并在其中输入以下代码：
MsgBox "Hello World!"
双击该文件即可看到弹窗提示，这标志着你的VBScript环境已成功配置。
基础语法与核心概念
变量与数据类型
VBScript是弱类型语言，变量无需显式声明类型。但为了代码可读性，建议使用Dim关键字声明变量：
Dim name, age
name = "Alice"
age = 25
常用数据类型包括：
- 字符串（String）：用双引号包裹，如
"Hello" - 数字（Number）：直接赋值，如
42或3.14 - 布尔值（Boolean）：
True或False - 对象（Object）：如文件系统对象、日期对象等
运算符与表达式
运算符与数学表达式与其他编程语言类似：
Dim a, b
a = 10
b = 20
MsgBox a + b ' 输出 30
MsgBox a < b ' 输出 True
比喻：运算符如同交通信号灯，控制代码的“行驶方向”，确保逻辑正确执行。
注释
单行注释使用 '，多行注释需逐行添加：
' 这是单行注释
Dim x = 5 ' 变量说明
流程控制：条件与循环
条件语句（If...Then...Else）
Dim score
score = 85
If score >= 60 Then
MsgBox "及格！"
Else
MsgBox "不及格！"
End If
比喻：条件语句如同路口的红绿灯，根据输入值决定代码的“行驶路径”。
多条件分支（Select Case）
Dim day
day = 3
Select Case day
Case 1,7
MsgBox "周末！"
Case 2 To 6
MsgBox "工作日！"
End Select
循环结构
For...Next循环适合已知次数的迭代：
For i = 1 To 5
WScript.Echo "第 " & i & " 次循环"
Next
While...Wend循环适合条件不确定的情况：
Dim count
count = 0
While count < 3
WScript.Echo "计数：" & count
count = count + 1
Wend
函数与过程：代码复用的基石
自定义函数
通过Function关键字定义函数，返回值通过FunctionName =指定：
Function AddNumbers(a, b)
AddNumbers = a + b
End Function
Dim result
result = AddNumbers(3, 5)
MsgBox result ' 输出 8
比喻：函数如同工具箱中的工具，解决特定问题并可重复调用。
过程（Sub）
Sub用于定义无返回值的代码块：
Sub DisplayMessage(msg)
MsgBox "信息：" & msg
End Sub
DisplayMessage "VBScript教程进行中！"
文件系统操作：自动化任务的核心
VBScript通过FileSystemObject（FSO）实现文件与目录管理：
创建FSO对象
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
操作文件
' 创建文件
Dim file
Set file = fso.CreateTextFile("test.txt", True)
file.WriteLine "Hello, VBScript!"
file.Close
' 读取文件
Dim content
Set file = fso.OpenTextFile("test.txt", 1) ' 1表示只读模式
content = file.ReadAll
MsgBox content
file.Close
目录操作
' 创建目录
fso.CreateFolder "C:\VBScript_Tutorial"
' 检查目录是否存在
If fso.FolderExists("C:\VBScript_Tutorial") Then
MsgBox "目录已存在！"
End If
错误处理：构建健壮的脚本
通过On Error Resume Next和Err对象捕获并处理异常：
On Error Resume Next
' 尝试打开不存在的文件
Dim file
Set file = fso.OpenTextFile("nonexistent.txt", 1)
If Err.Number <> 0 Then
MsgBox "错误：" & Err.Description
Err.Clear
End If
On Error GoTo 0 ' 恢复默认错误处理
实战案例：自动化文件重命名
场景需求
批量将文件名中的空格替换为下划线（_）。
实现步骤
- 遍历指定目录下的所有文件。
- 检查文件名是否包含空格。
- 重命名文件。
完整代码
Dim fso, folder, files, file
Set fso = CreateObject("Scripting.FileSystemObject")
' 设置目标目录
Dim targetFolder
targetFolder = "C:\Test_Files"
If fso.FolderExists(targetFolder) Then
Set folder = fso.GetFolder(targetFolder)
Set files = folder.Files
For Each file In files
Dim oldName, newName
oldName = file.Name
newName = Replace(oldName, " ", "_")
If oldName <> newName Then
file.Name = newName
WScript.Echo "重命名：" & oldName & " → " & newName
End If
Next
Else
MsgBox "目录不存在！"
End If
结论
VBScript作为一门“老而弥坚”的脚本语言，其简洁性和系统级操作能力使其在Windows环境中持续发挥作用。通过掌握变量、流程控制、文件操作及错误处理等核心知识点，开发者可以快速构建自动化工具，提升工作效率。
学习建议：
- 动手实践：从简单脚本开始，逐步尝试复杂功能。
- 查阅文档：参考微软官方文档（如VBScript Language Reference）。
- 结合需求：将VBScript与PowerShell等工具结合，扩展应用场景。
希望本教程能成为你探索VBScript世界的起点，未来在系统管理、脚本开发等领域大展身手！