Diretório do Sistema no Servidor

[Laudelino Scarmagnani]

Pessoal, boa noite!
Existem uma função que retorna o diretório do sistema no Servidor? a partir da estação? O comando aDir() retorna o diretorio do sistema na estação. Por exemplo: o sistema está no servidor, disco D:\Sistema. Numa estação da rede, preciso recuperar este diretório.
Laudelino

[sygecom]

EX:
ALERT(CAMINHO_EXE())

Código: Selecionar todos

********************************************************************************
***********VEREFICA O NOME DO EXECUTAVEL E O CAMINHO DO MESMO*******************
*NomeExecutavel()    // verefica o nome
*NomeExecutavel(.t.) // verefica o caminho
********************************************************************************
FUNCTION NOMEEXECUTAVEL(lPath)
LOCAL nPos, cRet
If Empty(lpath)
   nPos:= RAT("\", hb_argv(0))
   cRet:= substr(hb_argv(0), nPos+1)
else
   cRet:= hb_argv(0)
endif
Return cRet
********************
*Retorna o caminho do EXE
FUNCTION CAMINHO_EXE
Return(Substr(Nomeexecutavel(.t.),1,(len(Nomeexecutavel(.t.))- len(Nomeexecutavel()))-1 ))

[Laudelino Scarmagnani]

Boa noite, Leonardo.
Preciso que a renção retorne o diretorio no servidor. Por exemplo: Na estação de rede, mapeei o sistema do servidor, que está em C:\sistema, em M:\sistema. A função retorna M:\sistema. Preciso que retorne C:\sistema.
Laudelino

[sygecom]

Entendi.
Veja as opções do exemplo mostrado pelo Vailton, que está no link abaixo:
filebase.php?d=1&id=149&c_old=0&what=c&page=1

[Jairo Maia]

Olá Laudelino,

Tente desta forma:

Notas:
1- coloque no inicio de sua aplicação, para que seja executado todo vez que iniciar;
2- se for servidor dedicado, execute sua aplicação pelo menos uma vez;
3- IMPORTANTE: Funciona somente em aplicações que trabalhem com unidades de rede MAPEADAS.

Código: Selecionar todos

  cPastaExeServ:=HB_ARGV( 0 )
  cUnid:=Left( cPastaExeServ , 1 )

  // tira o nome do aplicativo
  cPastaExeServ := Uppe( Subst( cPastaExeServ , 1 , Rat( "\" , cPastaExeServ) ) )

  If DriveType( cUnid ) = 3

   // se for disco fixo, então é o servidor, e grava pasta do servidor
   HB_MVSave( "PastaExe" , "cPastaExe*" )

  ElseIf DriveType( cUnid ) = 5 .And. File( cPastaExeServ+"PastaExe.hbv" )

   // se unidade de rede le o caminho do servidor
   HB_MVRestore( cPastaExeServ + "PastaExe.hbv" , .t. )

  Else
   alert( "Pasta do Servidor nÆo identificada!" )
  Endi