vbs文件是啥（vbs是什么）

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 If

if i=10 then
  msgbox "Hello"
else
  msgbox "Goodbye"
end If

select case payment
case "Cash"
  msgbox "You are going to pay cash"
case "Visa"
  msgbox "You are going to pay with visa"
end select

VBS运行外部命令：

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
next

set fso=wscript.createobject("scripting.filesystemobject")
'表示覆盖目标位置的文件
fso.copyfile ".\kk.txt", ".\kk3.txt",true

set 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"