怎么用vbs遍历文件并随机显示

这篇文章主要介绍怎么用vbs遍历文件并随机显示，文中介绍的非常详细，具有一定的参考价值，感兴趣的小伙伴们一定要看完！

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遍历文件并随机显示”这篇文章的所有内容，感谢各位的阅读！希望分享的内容对大家有帮助，更多相关知识，欢迎关注行业资讯频道！