超完整的vbs代码.docx

超完整的vbs代码

1.创建文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

SetobjFile=objFSO.CreateTextFile(C:\example.txt,True)

objFile.WriteLine(Hello,World!)

objFile.Close

此代码创建一个FileSystemObject对象，然后使用该对象创建一个名为example.txt的文本文件，并在文件中写入Hello,World!。关闭文件。

2.读取文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

SetobjFile=objFSO.OpenTextFile(C:\example.txt,1)

strContent=objFile.ReadAll

objFile.Close

WScript.EchostrContent

此代码创建一个FileSystemObject对象，然后使用该对象打开一个名为example.txt的文本文件，并读取文件的全部内容。关闭文件，并使用WScript.Echo输出文件内容。

3.删除文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.DeleteFile(C:\example.txt)

此代码创建一个FileSystemObject对象，然后使用该对象删除一个名为example.txt的文件。

4.创建文件夹

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.CreateFolder(C:\example_folder)

此代码创建一个FileSystemObject对象，然后使用该对象创建一个名为example_folder的文件夹。

5.删除文件夹

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.DeleteFolder(C:\example_folder)

此代码创建一个FileSystemObject对象，然后使用该对象删除一个名为example_folder的文件夹。

6.复制文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.CopyFileC:\example.txt,C:\example_copy.txt

此代码创建一个FileSystemObject对象，然后使用该对象复制一个名为example.txt的文件，并将其复制到example_copy.txt。

7.移动文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.MoveFileC:\example.txt,C:\example_move.txt

此代码创建一个FileSystemObject对象，然后使用该对象移动一个名为example.txt的文件，并将其移动到example_move.txt。

8.重命名文件

SetobjFSO=CreateObject(Scripting.FileSystemObject)

objFSO.MoveFileC:\example.txt,C:\example_rename.txt

此代码创建一个FileSystemObject对象，然后使用该对象将一个名为example.txt的文件重命名为example_rename.txt。

9.启动应用程序

SetobjShell=CreateObject(WScript.Shell)

objShell.Run(notepad.exe)

此代码创建一个WScript.Shell对象，然后使用该对象启动记事本应用程序。

10.获取系统信息

SetobjWMIService=GetObject(winmgmts:\\.\root\cimv2)

SetcolItems=objWMIService.ExecQuery(SELECTFROMWin32_ComputerSystem)

ForEachobjItemincolItems

WScript.EchoComputerName:objItem.Name

WScript.EchoOperatingSystem:objItem.OSVersion

Next

此代码创建一个WMI（Window