vbs下通过日期查找文件夹的代码
On Error Resume Next
dtmTargetDate = "20020301000000.000000-420"
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory Where CreationDate > '" & _
dtmtargetDate & "'")
For Each objFolder in colFolders
Wscript.Echo objFolder.Name
Next
dtmTargetDate = "20020301000000.000000-420"
strComputer = "."
Set objWMIService = GetObject _
("winmgmts:" & "!\" & strComputer & "rootcimv2")
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory Where CreationDate > '" & _
dtmtargetDate & "'")
For Each objFolder in colFolders
Wscript.Echo objFolder.Name
Next
vbs复制文件的脚本
parentfolder="c:"sourcefile="c:windowslog.log"targetfolder=parentfolder&date&""setobjshell=createobject("shell.application")setobjfolder=objshell.namespace(parentfolder)objfolder.newfolderdatesets
vbs实现计算机重启
DimreturnSetR=CreateObject("WScript.Shell")return=MsgBox("你确定要重起计算机吗?",vbokcancel+vbexclamation,"注意！")Ifreturn=vbokThenR.run("Shutdown.exe-r-t0")Endif
文件备份vbs脚本
objs="c:aaa*"'支持UNC路径objd="d:aaa"'请自行修改上面两个路径Setobjshell=CreateObject("Scripting.FileSystemObject")objshell.CopyFolder(Objs,objD)'当文件存在时默认进行覆盖
