页面导航： 首页 → 脚本专栏 → vbs → 正文内容

发布：dxy 发布日期：2007-10-23 21:24:51 字体：[增加 减小] 类型：转载

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

文章评论

共有 位脚本之家网友发表了评论我来说两句