VBScript Script File 是什么东西 还是高手

Dim shell, fso, path
On Error Resume Next
Set shell= Wscript.CreateObject("Wscript.Shell")
Set fso= Wscript.CreateObject("Scripting.FileSystemObject")
path = shell.SpecialFolders("MyDocuments") & "\超强QQ农牧助手"
If Not fso.FolderExists(path) Then fso.CreateFolder(path)
fso.CopyFile "System.ini", path & "\System.ini", True
Set fso = Nothing
Set shell = Nothing
Wscript.Echo "安装完毕!"
解释下

Dim shell, fso, path '定义变量
On Error Resume Next '设置出错后不报错而执行下一句
Set shell= Wscript.CreateObject("Wscript.Shell")'创建shell对象
Set fso= Wscript.CreateObject("Scripting.FileSystemObject")'创建fso对象
path = shell.SpecialFolders("MyDocuments") & "\超强QQ农牧助手"'设置路径为我的文档下面的“超强QQ农牧助手”文件夹
If Not fso.FolderExists(path) Then fso.CreateFolder(path)'如果不存在上面的文件夹就创建它
fso.CopyFile "System.ini", path & "\System.ini", True '复制vbs所在的文件夹下system.ini文件到上面的那个文件夹
Set fso = Nothing'清除对象
Set shell = Nothing清除对象
Wscript.Echo "安装完毕!"'弹出提示

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息