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.
Recuerda que vbs no es VB, sino que es scripting :P
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\"
if objfso.fileexists("C:\Prueba2\TPVplusdata.mdb") then
msgbox "El archivo ha sido copiado satisfactoriamente"
else
msgbox "Ha ocurrido un error al copiar el archivo"
end if
Saludos ;)
Ok lo recordare, lo siento.
De nuevo mil gracias Novlucker