别再小看VBS了！用记事本5分钟搞定你的第一个自动化脚本（Windows系统自带）-洪萨配资

用记事本5分钟解锁Windows自动化：VBS脚本零基础实战指南

每次重复点击几十个文件重命名时，你有没有想过让电脑自己完成这些枯燥操作？当每天需要定时发送相同格式的邮件时，是否期待过有个数字助手能自动处理？其实你的Windows系统里一直藏着一个被低估的自动化神器——VBScript。不需要安装任何软件，不用配置复杂环境，只要会打开记事本，今天就能开始你的自动化之旅。

1. 为什么选择VBS作为你的第一个自动化工具

在众多编程语言中，VBScript（简称VBS）有着独特的优势，特别适合Windows用户的日常效率提升。与Python等需要安装运行环境的语言不同，VBS作为Windows原生支持的脚本语言，开箱即用。以下是几个核心优势：

零环境配置：系统自带解释器，无需安装任何额外软件
极简开发工具：记事本就是完整的开发环境
即时生效：写完代码直接运行，无需编译步骤
广泛兼容性：从Windows 98到最新Win11都能完美运行
学习曲线平缓：语法简单，特别适合非程序员快速上手

实际案例对比：某公司行政人员每天需要将100多个扫描件按照固定格式重命名。手动操作需要2小时，而用VBS脚本处理后，只需双击运行，3秒完成全部工作。

2. 5分钟创建你的第一个VBS脚本

让我们从一个最简单的例子开始，体验VBS的即时反馈魅力。这个脚本会在屏幕上显示问候语，是编程界的传统"Hello World"项目。

2.1 创建基础脚本文件

在桌面空白处右键，选择"新建"→"文本文档"

打开新建的文本文件，输入以下代码：

MsgBox "你好，世界！这是我的第一个VBS脚本"

点击"文件"→"另存为"，在保存类型中选择"所有文件"
将文件名改为我的第一个脚本.vbs（注意后缀必须是.vbs）
双击运行这个文件，你会看到一个弹出对话框

提示：如果看不到文件扩展名，在文件资源管理器中选择"查看"→勾选"文件扩展名"

2.2 代码解析与常见问题

这行简单的代码已经包含了VBS的核心元素：

代码部分	作用说明	注意事项
`MsgBox`	显示对话框的函数	VBS内置函数，无需定义
引号内文字	对话框中显示的内容	必须使用英文双引号
分号	语句结束符号	可以省略，但建议保留

常见错误排查：

如果运行时报错"无效字符"，检查是否使用了中文标点
如果双击后打开记事本而非运行脚本，确认文件后缀确实是.vbs
如果显示乱码，将文件另存为ANSI编码格式

3. 实用案例：文件批量重命名自动化

现在我们来解决一个真实的工作痛点——批量重命名文件。假设你有一批图片需要按照"产品-序号"的格式统一命名。

3.1 创建重命名脚本

将以下代码保存为批量重命名.vbs：

Set objFSO = CreateObject("Scripting.FileSystemObject") folderPath = "C:\我的图片\" ' 修改为你的文件夹路径 i = 1 For Each file In objFSO.GetFolder(folderPath).Files If LCase(objFSO.GetExtensionName(file.Name)) = "jpg" Then newName = "产品-" & i & ".jpg" file.Name = newName i = i + 1 End If Next MsgBox "已完成" & (i-1) & "个文件的重命名！"

3.2 脚本功能详解

这段代码实现了以下自动化流程：

创建文件系统对象，用于操作文件和文件夹
设置目标文件夹路径（需要用户自行修改）
初始化计数器i
遍历文件夹中所有文件：
- 检查文件扩展名是否为jpg
- 如果是，按照"产品-序号.jpg"格式重命名
- 计数器加1
完成后显示处理文件总数

进阶修改建议：

要处理其他类型文件，修改"jpg"为相应扩展名如"png"
需要不同的命名规则，调整newName的计算方式
添加日期到文件名：newName = "产品-" & Date() & "-" & i & ".jpg"

4. 办公自动化：自动发送Outlook邮件

VBS可以与Office应用深度集成，下面是一个自动发送邮件的示例，适合需要定期发送固定内容邮件的场景。

4.1 邮件自动发送脚本

创建自动邮件.vbs文件，输入以下代码：

Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) With objMail .To = "recipient@example.com" ' 收件人邮箱 .CC = "copy@example.com" ' 抄送人 .Subject = "每日销售报告" ' 邮件主题 .Body = "尊敬的客户：" & vbCrLf & vbCrLf & _ "附件是今日销售报告，请查收。" & vbCrLf & vbCrLf & _ "此致" & vbCrLf & "销售团队" .Attachments.Add "C:\报告\销售数据.xlsx" ' 附件路径 .Send ' 自动发送 End With MsgBox "邮件已发送！"

4.2 关键参数说明

参数	说明	示例值
.To	主收件人邮箱	client@company.com
.CC	抄送邮箱	manager@company.com
.Subject	邮件主题	三月项目进度报告
.Body	邮件正文	使用vbCrLf换行
.Attachments	附件路径	完整文件路径

注意：首次运行可能会被Outlook安全警告拦截，需要点击"允许"

5. 高级技巧：定时任务与错误处理

要让脚本真正成为你的自动化助手，还需要掌握定时执行和健壮性处理技巧。

5.1 创建计划任务自动运行脚本

按Win+R，输入taskschd.msc打开任务计划程序
创建基本任务，设置触发器（如每天上午9点）
操作选择"启动程序"，指向你的VBS脚本
条件中可设置"只有在计算机使用交流电源时才启动"

5.2 添加错误处理机制

完善的脚本应该能优雅处理异常情况：

On Error Resume Next ' 开启错误处理 ' 尝试执行可能出错的操作 Set objExcel = CreateObject("Excel.Application") If Err.Number <> 0 Then MsgBox "Excel未安装！错误：" & Err.Description WScript.Quit End If On Error Goto 0 ' 关闭错误处理

常见错误代码：