Como Criar um diretorio ou saber se existe este diretorio

[helio]

Estou com um problema que e o seguinte estou tentando criar alguns diretorio da seguinte forma tenho um arquivo de vendedores e gostaria de criar um diretorio para cada vendedor com um caminho especifico e conseguir saber se ja existe os respectivos diretorio.

Ex: o caminho e o seguinte : i:\sistemas\
o diretorio e o codigo do vendedor: 1

ficaria assim i:\sistemas\1

[Maligno]

Estou com um problema que e o seguinte estou tentando criar alguns diretorio

A LIB WAPI (veja a outra thread a respeito) tem uma função, vinculada à CATools, que cria um diretório caso o mesmo não exista. Inclusive cria o caminho todo, se for necessário. Veja se serve.

Link: http://buzinello.com/download/wapi.zip

Exemplo de uso:

Código: Selecionar todos

cDir := "c:\1\2\3\4\5\6\7\8\9\TST"
if !ExistFPath(cPath)
   MakeFPath(cPath)
end

Se o diretório final (TST) ou um de seus caminhos não existir, será(ão) criado(s). Apenas atente para fornecer o path sem a "\" final. Ou seja, exclua o nome do arquivo, se tiver.

[]'s
Maligno
http://www.buzinello.com/prg

[Mário Isa]

Veja este pedacinho de um programa:

mydir := directory('*.','D')
if tipoprog+tipoempre # "STO"
if ASCAN(MYDIR, {|aVal| aVal[1] == 'EXCLUIDO'}) == 0
run md excluido > nul
end

if tipoprog == "IM" .and. ASCAN(MYDIR, {|aVal| aVal[1] == 'DISCOS'}) == 0
run md discos > nul

[MARINI]

Assim tambem daria certo:

IF LEN(DIRECTORY("i:\sistemas\1\*.*"))=0
DIRMAKE("i:\sistemas\1") // ctp.lib
ENDIF

[helio]

Maligno o que voce me passou deu certo, Valeu pela Forca.