怎么用vbs遍历文件并随机显示-创新互联

这篇文章主要介绍怎么用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遍历文件并随机显示-创新互联
网址分享：https://www.cdcxhl.com/article8/cddeip.html

成都网站建设公司_创新互联，为您提供做网站、全网营销推广、品牌网站设计、网站导航、网站维护、网站排名

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源：创新互联

猜你还喜欢下面的内容