by Ale SB » Sun Dec 02, 2007 9:24 am
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
aleseribeli@hotmail.comFwH, 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---**