setws=createobject("wscript.shell")

setfso=createobject("scripting.filesystemobject")

setfolder=fso.getfolder(ws.currentdirectory)

setfiles=folder.files

foreachfileinfiles

d=d&file.name&","

next

Randomize

DoUntilD=""

s=Split(D,",")

M=UBound(s)

h=Int(Rnd*M)

N=s(h)

sn=sn&N&vbcr

D=Replace(D,N&",","",1,1)

Loop

MsgBoxsn