Acceso denegado (SOLUCIONADO)

[Armando]

Hola Foreros:

Tengo un .Bat con el siguiente contenido:

Code: Select all

C:\PROGRA~2\MySQL\MYSQLS~1.1\bin\MYSQLD~1.EXE -hlocalhost -uroot -p91502127 SiaWinTH > C:\TONER HOUSE 2017 SiaWinTCFDI\Respaldos\SiaWinTH_20191204_134259.Sql
 

Y lo ejecuto con

MsgRun("Espere un momento por favor, estoy haciendo el respaldo... !",oApp:cAplicacion,{||CursorWait(),WaitRun(cFileBat, 0 )})

No se ejecuta correctamente.

Lo ejecuto desde una ventana CMD y me tira el mensaje de "Acceso denegado"

Alguien que me tire una idea o solución?

Gracias y saludos

[MGA]

function MyRun( cComando, nStyle, lWait, lShowResult )

local oShell, nRetorno

IF valtype( nStyle ) != "N"
nStyle := 0
ENDIF

IF ValType( lWait ) != "L"
lWait := .T.
ENDIF

IF ValType( lShowResult ) != "L"
lShowResult := .F.
ENDIF

oShell := CreateObject( "WScript.Shell" )

IF !GetEnv( "OS" ) == "Windows_NT"
cComando += "start " + cComando
ENDIF

TRY
nRetorno := oShell:Run( "%comspec% /c " + cComando, nStyle, lWait )
CATCH
MsgStop("ERRO NO ENVIO DO COMANDO!", "MYRUN")
END

IF lShowResult .and. nRetorno > 0 .and. nRetorno <= 32
MsgInfo( "Erro Win_Run(): " + ltrim( Str( nRetorno ) ), "Win_Run - Error" )
ENDIF

oShell := NIL

Return nRetorno = 0

[Armando]

Hola MGA:

Gracias por tu pronta respuesta.

Ya encontré la solución, la pongo en este hilo por si a alguien más le sirve.

El problema está en los nombres de las carpetas, tienen blancos intermedios y eso
hace que Windows repare.

Solución?, dejar los nombres de las carpetas sin espacios intermedios.

Saludos al foro