欢迎来到入门教程网!

vb

当前位置:主页 > 软件编程 > vb >

用vbs遍历文件并随机显示的脚本

来源:本站原创|时间:2020-01-10|栏目:vb|点击:

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

上一篇:IIS管理脚本之adsutil.vbs的使用说明

栏    目:vb

下一篇:VBS编程教程 (第3篇)

本文标题:用vbs遍历文件并随机显示的脚本

本文地址:https://www.xiuzhanwang.com/a1/vb/7831.html

网页制作CMS教程网络编程软件编程脚本语言数据库服务器

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:835971066 | 邮箱:835971066#qq.com(#换成@)

Copyright © 2002-2020 脚本教程网 版权所有