FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Acceso denegado (SOLUCIONADO)
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Acceso denegado (SOLUCIONADO)
Posted: Wed Dec 04, 2019 08:03 PM
Hola Foreros:

Tengo un .Bat con el siguiente contenido:

Code (fw): Select all Collapse
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
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
MGA
Posts: 1286
Joined: Mon Feb 25, 2008 02:54 PM
Re: Acceso denegado
Posted: Wed Dec 04, 2019 08:14 PM

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

ubiratanmga@gmail.com

FWH24.04
BCC7.3
HARBOUR3.2
xMate
Pelles´C
TDolphin
Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Acceso denegado (SOLUCIONADO)
Posted: Wed Dec 04, 2019 08:28 PM

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

Continue the discussion

Static archive · New replies & topics via GitHub Discussions