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.
se puede buscar archivo en red?
Si Amigo....es posible !
Usted podes, mapear la unidade via codigo....e ir directamente para la Carpeta donde se encontra el Archivo.
Saluds
Usted podes, mapear la unidade via codigo....e ir directamente para la Carpeta donde se encontra el Archivo.
Code: Select all
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
**********************************************************************************************************
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
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---**
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---**