VBScript 是微软公司出品的动态脚本语言，是Visual Basic 的轻量级的版本。
vbs的基本使用
msgbox() 弹出消息框
循环语句
For…Next 语句运行一段语句指定的次数
For Each…Next 语句针对集合中的每个项目或者数组中的每个元素来运行某段语句。
Do…Loop 语句运行循环，当条件为 true 或者直到条件为 true 时。
条件语句
if i=10 Then msgbox "Hello"if i=10 Then
msgbox "Hello"
i = i+1
end Ifif i=10 then
msgbox "Hello"
else
msgbox "Goodbye"
end Ifselect case payment
case "Cash"
msgbox "You are going to pay cash"
case "Visa"
msgbox "You are going to pay with visa"
end selectVBS运行外部命令：
1、Scripting.FileSystemObject —> 提供一整套文件系统操作函数
2、Scripting.Dictionary —> 用来返回存放键值对的字典对象
3、Wscript.Shell —> 提供一套读取系统信息的函数，如读写注册表、查找指定文件的路径、读取DOS环境变量，读取链接中的设置
4、Wscript.NetWork —> 提供网络连接和远程打印机管理的函数。（其中，所有Scripting对象都存放在SCRRUN.DLL文件中，所有的Wscript对象都存放在WSHOM.ocx文件中。）
' 创建FileSystemObject对象
Set objfso = createobject("scripting.FileSystemObject")
' 将D:/test下所有的内容复制到c:/123
objfso.CopyFolder "D:/test","c:/123"'创建文件夹
set fso =CreateObject("Scripting.FileSystemObject")
fso.CreateFolder("C:\test") '目标文件夹的父文件夹必须存在
set fso = nothing'判断文件夹是否存在
set fso =CreateObject("Scripting.FileSystemObject")
if fso.FolderExists("C:\Windows") then
msgbox("目标文件夹存在")
else
msgbox("目标文件夹不存在")
end if
set fso = nothing' 创建FileSystemObject对象
Set objfso = createobject("scripting.FileSystemObject")
‘ 在c:/创建new folder文件夹，如果文件夹存在，则会出现错误提示
objfso.CreateFolder("c:/new folder")
‘ 删除c:/new folder文件夹
objfso.DeleteFolder("c:/new folder")'删除指定文件夹中，修改日期距离当前日期相差10天的文件
'给对象赋值
set fso=CreateObject("Scripting.FileSystemObject")
set fs=fso.getfolder(".\source").files
for each f in fs
d=f.datelastmodified
aa=datediff("d",d,Now)
msgbox aa
'如果修改日期和现在日期间隔大于10天则删除
if aa>10 then
fso.deleteFile f
end if
nextset fso=wscript.createobject("scripting.filesystemobject")
'表示覆盖目标位置的文件
fso.copyfile ".\kk.txt", ".\kk3.txt",trueset fso=wscript.createobject("scripting.filesystemobject")
'复制文件夹，覆盖目标位置的文件夹
fso.CopyFolder "C:\abc","E:\image",true'立即关机
set ws=createobject("wscript.shell")
ws.run"cmd.exe /c shutdown -s -f -t 0"本文部分内容来自互联网，如有疑问请与我们联系。：https://www.psychoses.cn/hangyedongtai/134308.html
微信扫一扫 