?刪除文件（夾）?

createobject("scripting.filesystemobject").deletefile "文件" '要帶后綴名的，不同目錄要帶路徑?

createobject("scripting.filesystemobject").deletefolder "文件夾" '不同目錄要帶路徑

生成其它?

set fso=createobject("scripting.filesystemobject") set?

ws=CreateObject("wscript.shell") set fw=fso.createtextfile("1.bat",2)?

fw.writeline("@echo off") fw.writeline("echo 就是這個效果")?

fw.writeline("pause") fw.close ws.run "1.bat"

VBS截取CMD返回文本

搞了很久才發(fā)現(xiàn)WScript.Shell有這么好的一個功能！
CODE: [Copy to clipboard]
Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec ("%comspec% /c " & wscript.arguments(0))
Do While Not objExecObject.StdOut.AtEndOfStream
strText = objExecObject.StdOut.ReadAll()
loop
msgbox strText
保存為GetStdOut.vbs，在命令行里轉(zhuǎn)到相應(yīng)目錄運行：
cscript.exe GetStdOut.vbs "ping 127.1"

看看，是不是出來了：

轉(zhuǎn)載于:https://blog.51cto.com/dongbian/687887

總結(jié)

以上是生活随笔為你收集整理的VBS汇总的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。