vbs常用语句

'创建桌面快捷方式
set ws=CreateObject("WScript.Shell")
sDesktop=ws.SpecialFolders("Desktop")                    '指定创建的位置
Set oLink=ws.CreateShortcut(sDesktop & "\MySoft.lnk")    '创建MySoft快捷方式
sCurrentDir=ws.CurrentDirectory                            'vbs文件所在路径
oLink.TargetPath=sCurrentDir & "\MySoft.exe"
oLink.WorkingDirectory=sCurrentDir
oLink.Save

'运行exe软件
ws.Run "MySoft.exe",1,true    '1——激活并显示窗口，true——此行执行结束才执行之后的内容

'创建文件、文件夹
set fso=CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile sCurrentDir & "\test.txt",true    '创建txt文档，允许被覆盖
fso.CreateFolder sCurrentDir & "\test"                '创建文件夹

'运行cmd指令，如关机、新建文件夹
'ws.Run "cmd /k shutdown -s -f -t 500",1,true
ws.Run "cmd /k md D:\MySoft\test2",true    '不显示cmd窗口