- 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脚本+限制多点登录
- 使用VBS访问外部文本文件一些方法和脚本实例代码
- 利用VBS脚本自动创建计算机帐户的代码
- 用vbs实现注册表开关的脚本
- Windows系统使用vbs脚本或bat脚本强制杀死指定所有进程 vbs实现循环持续写入内容到vbs打开开的记事本 使用vbs、bat添加windows计划任务 使用cmd schtasks命令添加windows计划任务
- 用VBS实现脚本结束进程与防止进程启动
- 用vbs实现解除注册表CMD、Regedit、Taskmgr限制的脚本代码
- 用vbs删除某些类型文件和磁盘空间报告的脚本
- 用VBS脚本删除指定以外的文件或文件夹