Gracias a la inestimable ayuda de novlucker tengo este vbs:

set objfso = createobject("scripting.filesystemobject")
set objshell = createobject("wscript.shell")
objshell.run "cmd /c cd \ & dir /s /b TPVplusdata.mdb > %temp%\tempfile.txt",vbhide,true
set temp = objfso.getspecialfolder(2)
set tempfile = objfso.opentextfile(temp & "\tempfile.txt",1)
directorio = tempfile.readline
tempfile.close
objfso.deletefile temp & "\tempfile.txt"
objfso.movefile directorio, "C:\Prueba2\"

El caso es que necesitaria generar un MSGBOX con el resultado si es ok o si es erroneo pero por mas vueltas que le he dado siempre me sale un error.

A ver si alguien puede echarme una manilla.
Muchas gracias.

Ok lo recordare, lo siento.

De nuevo mil gracias Novlucker