set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(ws.currentdirectory)
set files=folder.files
for each file in files
d=d & file.name & ","
next
Randomize
Do Until D = ""
s = Split(D, ",")
M = UBound(s)
h = Int(Rnd * M)
N = s(h)
sn = sn & N & vbcr
D = Replace( D, N & ",", "",1,1)
Loop
MsgBox sn

用vbs实现随机读取文件的一行内容的脚本
randomizesetfso=createobject("scripting.filesystemobject")seta=createobject("scripting.dictionary")setfile=fso.opentextfile("a.txt")dowhilefile.atendofstreamtruem=m+1a.addm,file.readlineloopfile.close

用vbs实现读取文本文件的方法
vbs读取文件方法Functionreadfile(readfilepath)'OnErrorResumeNextSetfs=CreateObject("Scripting.FileSystemObject")Setfile=fs.OpenTextFile(readfilepath,1,false)readfile=file.readallfile.closesetfs=n

一个实现VBS倒计时的代码
一个实现VBS倒计时的代码以下内容为程序代码:scriptlanguage="VBScript"DimoTime:oTime=5FunctionSTimedocument.all("oInput").value="00:00:"&oTimeIfoTime0ThenoTime=oTime-1window.setTimeout