Testar conexao da rede

[marbio]

Boa Noite!!!

Galera. estou precisando de uma rotina para testar conexao de rede. tenho um sistema q trabalha interligado numa rede Wirelles q acessa uns banco de dados. Mas o usuario tem hora q nao funciona. prq a conexao perte. eu ele reboota a maquina etc..

eu queria dar uma solução para isso.


desde ja agradeco sua atencao. ..

[rochinha]

Amiguinho

Use esta minha função:

Código: Selecionar todos

function IsDirExist( _onde_ )
   fcreate(_onde_+"\$$$.$$$")
   return iif( fError()=0, .t., .f. )

Basta passar a letra do drive e ela retorna .T. ou .F. se o drive esta ok. Ai é só fazer o resto.