topic-39662

Posts: 198

Joined: Fri Nov 18, 2005 07:34 PM

Valor en ejecucion
Posted: Sun Nov 22, 2020 05:18 PM

Hola, como puedo hacer que un exe pueda distinguir por una variable la ruta de uso ? por ejemplo
CAJA.EXE 2
c\dastos2\

necesito que ese 2 lo tome en cuenta ("lea") el programa y sepa que el subdirectorio de trabajo y bases de datos corresponden al almacén 2-

CAJA.EXE 3
este tome otro directorio por ejemplo c:\datos3\

Como tomo o recupero esos números en cada caso (2 o 3) ???
Para que el programa CAJA.EXE lo use (CAJA.EXE sería el mismo programa)

Espero haberme explicado correctamente, gracias

leandro

Posts: 1816

Joined: Wed Oct 26, 2005 02:49 PM

Re: Valor en ejecucion
Posted: Sun Nov 22, 2020 05:24 PM

Creo que esto te puede servir

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=22720&p=121380&hilit=pasar+parametros+exe#p121380

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: Valor en ejecucion
Posted: Mon Nov 23, 2020 11:04 AM

Servicom:

A ver si esto es lo que necesitas?

Code (fw): Select all Collapse

MsgInfo( cFilePath(GetModuleFileName(GetInstance())) )

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

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Valor en ejecucion
Posted: Mon Nov 23, 2020 06:50 PM

Code (fw): Select all Collapse

FUNCTION Main(cParametro)
DO CASE
   CASE cParametro= "2"
        cPath := "C:\DATOS2"
   CASE cParametro= "3"
        cPath := "C:\DATOS3"
   OTHERWISE
        MsgStop("Debe pasar el parametro","Error")
       RETURN nil   
ENDCASE
....

Después puedes llamar a CAJA.EXE 2 o CAJA.EXE 3 y segun el caso tener el path de tus datos.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

FiveTech Support Forums

Continue the discussion