Saber se um diretorio existe?

[Pablo César]

Mas Rochinha, é como o GVC falou, poderia ter consequências do sistema se perder ao mudar o diretorio corrente. Digo isso, se não retornar a diretório original em que se encontrava. Em vez do uso da DIRCHANGE eu preferiria DIRMAKE que é mais seguro e sintético. Mas acho que tudo isso seria desnecessário, visto que o seu exemplo anterior, bastaria colocar o caminho completo com drive e sub-diretorios (no caso).

[rochinha]

Amiguinho

Com certeza!

[ABeltrani]

Boa tarde !

O "efeito colateral" da dirchange é desfeito nesta função. Se os amigos observarem, verão que se dirchange retornar 0 (o diretorio existe), o programa retorna ao diretorio anterior "dirchange(´..´)".

Chamo a função desta forma: IF !VERDIR(´NOME DO DIRETORIO´)
RETU
ENDI

[Marsenne]

Verificar se o diretório existe com a função FILE não funciona.
O file retorna TRUE somente se o diretório já existe tendo ou não
arquivos nele.

A função abaixo verifica corretamente através do FERROR=3 que é
diretório inexistente. Basta colocar um nome de arquivo qualquer. No
meu coloquei 'NUL' mas pode ser qualquer outro. Caso não exista o
diretório o CLIPPER retorna o erro 3.

Funciona muito bem!

FOPEN("C:\TESTE\\NUL")
IF FERROR()=3 // se a pasta C:\TESTE nao existe ele criará
SET CONSOLE OFF
RUN MKDIR C:\TESTE
SET CONSOLE ON
ENDIF

abraços,
Marsenne Negreiros