set objfso = createobject("scripting.filesystemobject")
set carpeta = objfso.getfolder("c:\carpetaorigen")

' determinamos el objeto carpeta

set archivos = carpeta.files

' devolvemos la coleccion de archivos de la carpeta

randomize()

' iniciamos la variable para que el random sea distinto cada vez

numero = int((archivos.count*rnd)+1)

' numero entero al azar entre 1 y el total de archivos de la carpeta

n = 0
For each a in archivos

' bucle por cada uno de los archivos de la carpeta

if n = numero then
objfso.copyfile a.path, "c:\carpetadestino\" & a.name
wscript.quit

' recorre cada uno de los archivos y si la variable n es igual al numero sorteado
' entonces copia el archivo a la carpeta destino, manteniendo el nombre
' y luego termina el script

else
n = n + 1

' sino, le suma 1 a la variable y vuelve a comenzar

end if
next

echo msgbox "esto es una prueba" >> c:\unarchivo.vbs