Verificar se O Diretorio Existe

[Rogerio_SG]

Ola Pessoal;

Alguem pode me ajudar a resolver uma problema aqui, quero verificar a existencia de um diretorio no linux.

A funcao da CA-Tools ISDIR(), funciona no MSDOS, porem qdo compilo o programa com xharbour para ser usado no linux da pau..

Agradeco desde ja.

Rogerio

[Clipper]

Prezado Colega

Já tentou a DIRCHANGE() da ClipperTools ?

Se você conseguir mudar para o diretório é porque existe, senão, não existe.

Até logo.

Marcelo

[Rogerio_SG]

Caro Colega.

A funcao nao funciona no linux, ja utilzei a mesma porem nao funciona e ate perde o caminho que estava antes.


Rogerio

[evolver]

infelizmente ainda pra linux o suporte é muito fraco.

Tente o seguinte

Código: Selecionar todos

run ls nome_do_dir > ls.txt
v_ls=memoread("ls.txt")
if left(v_ls,2)="ls"
   ? "diretorio nao existe"
else
   ? "diretorio existe"
endif

Meio tosco isso mas tou usando um detalhe do linux que é quando um comando não existe ou responde errado o bash devolve o nome do comando no console. Portanto se não existir o diretório ele vai responder algo como
ls: File or directory not found (ou em portugues dependendo da sua distro)

[Mario Mesquita]

Boa tarde a todos.

Estou tentando usar a função ISDIR() para testar a existência ou não de uma subpasta.

Da primeira vez, ela retorna .F., então crio a mesma com MAKEDIR(). Porém, em caso de atualização da mesma, ao testar de novo se a subpasta existe, dá .F. de novo mesmo com a pasta criada, causado um erro DOS 5.

Tem algo que se possa tentar ou o Harbour tem alguma função equivalente, já que essa é herança do Clipper?

Qualquer dica, agradeço.

Saudações,
Mario.

[Mario Mesquita]

Voltei, amigos.

Resolvi com ISDRIRECTORY(). Tem que testar sem a contrabarra final, só usá-la no MAKEDIR().

Então fiz duas variáveis, uma para teste da subpasta e outra para criação. Tosco, mas funcionou.

Sds,
Mario.

[tonicm]

No windows eu utilizo assim:

Código: Selecionar todos

IF File("C:\TEMP\Mapas\NUL")

[JoséQuintas]

hbmk2 -find dir

...
Harbour core (installed):
ADir()
CurDir()
DirChange()
Directory()
DirRemove()
hb_DirBase()
hb_DirBuild()
hb_DirCreate()
hb_DirDelete()
hb_Directory()
hb_DirExists()
hb_DirRemoveAll()
hb_DirScan()
hb_DirSepAdd()
hb_DirSepDel()
hb_DirSepToOS()
hb_DirTemp()
hb_DirUnbuild()
hb_FNameDir()
hb_gzDirect()
hb_vfDirectory()
hb_vfDirExists()
hb_vfDirMake()
hb_vfDirRemove()
hb_vfDirSpace()
MakeDir()
__Dir()
__hbdoc_DirLastModified()
__hbdoc_LoadDir()