se puede buscar archivo en red?

[alex_cyr]

que tal amigos, solicitando su ayuda una vez mas, en esta ocasion me gustaria saber si es posible buscar automaticamente un archivo especifico dentro de mi red local, es decir, sin la intervencion de ningun dialogo como cgetfile32 o cgetdir32...

gracias de antemano y un saludo.
Alex.

[Ale SB]

Si Amigo....es posible !

Usted podes, mapear la unidade via codigo....e ir directamente para la Carpeta donde se encontra el Archivo.

Code: Select all  Expand view

IF !File("S:\SB_SISTEMAS\Gerenciador\SB_Dados\*.dbf")
        MSGRUN( "Conectando ao Servidor de Arquivos...  ", ;
                "Aguarde Um Momento, Por Favor!         ", ;
                { || CONECTA_SERVIDOR() } )
     ENDIF


Code: Select all  Expand view

**********************************************************************************************************
STATIC FUNCTION CONECTA_SERVIDOR()    //-> Conecta a Rede
**********************************************************************************************************
//->Memory(-1)
/*limpia arreglo y llama al colecor de basura de xharbour*/

  hb_gcAll()
  WNetAddCon( "\\TERMINAL01\C\SB_SISTEMAS\Gerenciador\SB_Dados,,"S:" )

  SysWait(1)

RETURN NIL

**********************************************************************************************************
FUNCTION DESCONECTA_SERVIDOR()  //-> Desconecta a Rede
**********************************************************************************************************
//->Memory(-1)
/*limpia arreglo y llama al colecor de basura de xharbour*/

  hb_gcAll()
  wNetDelConnection( "S:", .T. )
  SysWait(1)

RETURN NIL


Saluds