Página 1 de 1
Como Criar um diretorio ou saber se existe este diretorio
Enviado: 22 Jan 2007 19:40
por 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
Re: Como Criar um diretorio ou saber se existe este diretori
Enviado: 22 Jan 2007 20:14
por 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
Enviado: 23 Jan 2007 02:35
por 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
Enviado: 23 Jan 2007 08:48
por MARINI
Assim tambem daria certo:
IF LEN(DIRECTORY("i:\sistemas\1\*.*"))=0
DIRMAKE("i:\sistemas\1") // ctp.lib
ENDIF
Enviado: 24 Jan 2007 15:13
por helio
Maligno o que voce me passou deu certo, Valeu pela Forca.