15问答网 > 用vbs写的ping语句，加入了时间输出，如何将结果写入到txt文件中

用vbs写的ping语句，加入了时间输出，如何将结果写入到txt文件中

2024-10-27 20:38:43

推荐回答（1个）

回答1：

写文本文件:

Function file(filename)
set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set objfile = Nothing
Set objfile = objFSO.CreateTextFile(filename,True)
With objfile
.WriteLine ("第一行")
.WriteLine ("第二行")
.WriteLine ("...以此类推")
End With
On Error Goto 0
If Err.Number <> 0 Then
file = False
Else
file = True
End If
End Function

自己写的函数,加入了错误处理机制,

保存的文件将会保存在同级文件夹下，

如果返回false则保存失败。

调用方法：

变量 = file(文件名)

至于隔30秒,

这个很简单，

在代码中加入wscript.sleep 30000，

这样脚本到达这一句时将会暂停30秒。