LJDIREC - Valida e cria diretório -- 11169

Versao 5.08

Para as rotinas que tem a necessidade de especificar um diretorio que ira armazenar arquivos, foi criado a funcao LJDIRECT().

-------------------------------------------------------------------------
Sintaxe:

LJDIRECT(<cPath>,[lDrive])

Descricao :
Valida o caminho <cPath>, caso o diretorio nao exista sera criado.Para que seja possivel a criacao do diretorio e necessario que:

- Tenha direito de criacao, no caso de uma unidade de rede
- A unidade de drive informada em <cPath>, deve estar disponivel
- O <cPath> nao ter cricao de diretorios aninhados.
Caso [lDrive] seja igual a .T., sera obrigatorio informar a unidade de drive em <cPath>, caso contrario o diretorio sera criado apartir do diretorio corrente. Caso [lDrive] nao seja informado o default e .T..

Parametros:

cPath - O caminho para validar/criar o diretorio
lDrive - Flag para validar a unidade de drive, ou seja se a unidade de drive tem que ser informada, onde:
.T. - Forcara a entrada da unidade de drive
.F. - Nao exige que entre com a unidade de drive

Retorno :
.T. - O diretorio existe ou foi criado corretamente
.F. - Nao foi possive criar o diretorio, neste caso apresentara um help de campo (NOMAKEDIR).

Exemplo:

Prog1.
...

@ 01,01 MSGET cDirTrans VALID LJDIRECT(cDirTrans,.T.)

...

Prog2 - diretorio Aninhados

Local cDir:="C:\DIR1\DIR2\DIR3"

// o Diretorio DIR1 existe e o DIR2 nao
//
ljDirect(cDir) -> Erro