1. set ws=createobject("wscript.shell")  
2. set fso=createobject("scripting.filesystemobject")  
3. set folder=fso.getfolder(ws.currentdirectory)  
4. set files=folder.files  
5. for each file in files  
6. d=d & file.name & ","  
7. next  
8. Randomize  
9. Do Until D = ""  
10. s = Split(D, ",")  
11. M = UBound(s)  
12. h = Int(Rnd * M)  
13. N = s(h)  
14. sn = sn & N & vbcr  
15. D = Replace( D, N & ",", "",1,1)  
16. Loop  
17. MsgBox sn