TOTVSTEC

Árvore de páginas

Função: CurDir

Exibe o diretório atual servidor. 
Esse diretório é relativo ao RootPath, definido no arquivo de configuração (appserver.ini), do Application Server, para identificar o diretório inicial de execução do sistema.

Sintaxe

CurDir ( [ cNovoPath] ) --> cRet

Parâmetros/Elementos
NomeTipoDescriçãoObrigatórioReferência
cNovoPathCaracterIndica o caminho relativo com o novo diretório que será ajustado como corrente.
Retorno
    cRet(caracter)
  • Retorna o diretório atual sem a primeira barra.
Observações
  • Inicialmente, o diretório corrente da aplicação é a constante na chave StartPath, do arquivo de configuração (appserver.ini), que indica onde os arquivos de configuração do sistema se encontram.
  • Caso a especificação realizada no parâmetro <cNovoPath> não exista, seja inválida ou um path absoluto (iniciado com uma letra da unidade de disco ou caminho de rede), o drive atual será retornado.
Exemplos 
cOldDir := CurDir()cNewDir := '\webadv\xis'CurDir(cNewDir) // Troca o path// Verifica se a troca foi realizadaIf cNewDir <> '\'+CurDir()    conout('Falha ao Trocar de Path de '+cOldDir + ' para '+cNewDir)Else      conout('Path de '+cOldDir + ' trocado para '+cNewDir+' com sucesso.')Endif
Abrangência
Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10 , TOTVS Application Server 10 , ByYou Application Server

  • Sem rótulos