用vbs遍历文件并随机显示的脚本
摘要：setws=createobject("wscript.shell")setfso=createobject("scripting.file...
setws=createobject("wscript.shell")
setfso=createobject("scripting.filesystemobject")
setfolder=fso.getfolder(ws.currentdirectory)
setfiles=folder.files
foreachfileinfiles
d=d&file.name&","
next
Randomize
DoUntilD=""
s=Split(D,",")
M=UBound(s)
h=Int(Rnd*M)
N=s(h)
sn=sn&N&vbcr
D=Replace(D,N&",","",1,1)
Loop
MsgBoxsn
【用vbs遍历文件并随机显示的脚本】相关文章：
上一篇：
用vbs实现显示系统调色板的代码
下一篇：
用vbs实现随机读取文件的一行内容的脚本