"VBS脚本精品代码集锦：收录常用经典代码，助力VBS脚本编程学习和开发"

在网上查找资料时，我发现了许多经典的VBS代码。为了方便以后学习和复用，我进行了整理和收集。VBS脚本有很多用途，包括计算、处理文件和文件夹、管理Windows系统、处理Office文档、嵌入网页、编写HTTP通信、调用系统功能等等。下面是我收集的一些VBS代码，大部分来源于gangzi.org，并且我还会继续更新。 首先是获取系统安装路径的代码： ```vbscript Set WshShell = CreateObject("WScript.Shell") strSystemFolder = WshShell.ExpandEnvironmentStrings("%systemroot%") ``` 这段代码定义了一个变量`strSystemFolder`，它可以用来获取系统的安装路径。通过调用`WScript.Shell`对象的`ExpandEnvironmentStrings`方法，并使用`%systemroot%`参数，我们可以获取到系统的安装路径。 下面是一些其他常见的VBS代码： 1. 计算 ```vbscript a = 10 b = 20 c = a + b WScript.Echo c ``` 2. 处理文件和文件夹 ```vbscript Set objFSO = CreateObject("Scripting.FileSystemObject") strFolder = "C:\Temp" Set objFolder = objFSO.GetFolder(strFolder) For Each objFile In objFolder.Files WScript.Echo objFile.Name Next ``` 3. 管理Windows系统 ```vbscript Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Process") For Each objItem in colItems WScript.Echo objItem.Name Next ``` 4. 处理Office文档 ```vbscript Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("C:\Documents\Test.docx") objDoc.Content.Text = "Hello, World!" objDoc.SaveAs "C:\Documents\Test2.docx" objDoc.Close objWord.Quit ``` 这些代码只是VBS脚本可以实现的众多功能中的一小部分，它们可以用于各种需求的开发和自动化操作。无论是进行系统管理、处理文件和文件夹、处理Office文档还是开发网页等，VBS脚本都可以发挥重要的作用。同时，这些代码也为学习VBS脚本提供了很好的参考和学习资料。 值得一提的是，由于VBS脚本的强大功能和灵活性，也会存在一些安全隐患，甚至可能会被滥用为脚本病毒。因此，在使用VBS脚本时，我们必须谨慎并确保脚本的来源可靠。 总之，VBS脚本是一种功能强大的脚本语言，通过收集和整理经典的VBS代码，我们可以更好地学习和应用这门语言，实现各种各样的任务和功能。希望这些收集的VBS代码能够对大家有所帮助，并且我将会持续更新和分享更多的VBS脚本代码。