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
- 0
- 0
- 0
- 0
- 0
更多推荐
用vbs遍历文件并随机显示的脚本
发布评论