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