Título: MsgBox en codgio VBS Publicado por: Kenito en 23 Octubre 2008, 12:19 pm 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. Título: Re: MsgBox en codgio VBS Publicado por: Novlucker en 23 Octubre 2008, 13:08 pm Recuerda que vbs no es VB, sino que es scripting :P
Código
Saludos ;) Título: Re: MsgBox en codgio VBS Publicado por: Kenito en 23 Octubre 2008, 13:33 pm Ok lo recordare, lo siento.
De nuevo mil gracias Novlucker |