FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour se puede buscar archivo en red?
Posts: 77
Joined: Wed Jun 28, 2006 06:38 PM
se puede buscar archivo en red?
Posted: Sat Dec 01, 2007 06:50 PM

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.

Posts: 248
Joined: Wed Jan 11, 2006 11:30 AM
se puede buscar archivo en red?
Posted: Sun Dec 02, 2007 09:24 AM
Si Amigo....es posible !

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

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


**********************************************************************************************************
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
aleseribeli@hotmail.com

FwH, Hb Svn, ADS 8.1, ADS 10, Pelles C, FwPPC, MsVc 2008, MsVc 2010
"Conhecimento, você não subtrai quando divide; mas soma e multiplica."
**---Mário Persona---**

Continue the discussion