randomize 
set fso=createobject("scripting.filesystemobject") 
set a=createobject("scripting.dictionary") 
set file=fso.opentextfile("a.txt") 
do while file.atendofstream>true 
m=m+1 
a.add m,file.readline 
loop 
file.close 
h=int(rnd*m) 
msgbox "第"  h  "行:  "  a(h) ,4096,"隨機內容"