这篇文章主要介绍怎么用vbs遍历文件并随机显示，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！
创新互联主营焦作网站建设的网络公司,主营网站建设方案,
成都App定制开发,焦作h5
微信小程序开发搭建,焦作网站营销推广欢迎焦作等地区企业咨询
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遍历文件并随机显示”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注创新互联行业资讯频道！
标题名称：怎么用vbs遍历文件并随机显示-创新互联
转载注明：
http://cdkjz.cn/article/cddeip.html
