用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脚本实现遍历批量替换多目录多文件内容的代码
• VBS调用WMI遍历搜索硬盘文件并计数的方法
• VBS遍历文件或文件夹路径输入文件的所有绝对路径（附源码）