Page 1 of 1

¿Cómo saber si existe un directorio o carpeta?

Posted: Fri Jan 03, 2014 8:58 am
by arroya2
Hola a todos, !FELIZ AÑO 2014¡

Para saber si existe un archivo se utiliza la función File().
¿Que función se utiliza para saber si existe un directorio o carpeta?

Saludos
Rafael Pérez


Hi all, !HAPPY NEW YEAR 2014

To find out if a file the File() function.
What function is used to determine if there is a directory or folder?

Regards
Rafael Pérez

¿Cómo saber si existe un directorio o carpeta?

Posted: Fri Jan 03, 2014 11:16 am
by Pablo César
Hola Rafael, feliz año nuevo para vos tambien.

Yo utilizo la funcion en Harbour HB_DirExists("c:\harbour") por ejemplo.

Re: ¿Cómo saber si existe un directorio o carpeta?

Posted: Mon Jan 06, 2014 1:26 pm
by arroya2
Gracias Pablo Cesar, lo probaré.

Saludos
Rafael Pérez

Re: ¿Cómo saber si existe un directorio o carpeta?

Posted: Mon Jan 06, 2014 7:54 pm
by Roberto Lopez
arroya2 wrote:Hola a todos
Para saber si existe un archivo se utiliza la función File().
¿Que función se utiliza para saber si existe un directorio o carpeta?
Hace algún tiempo he usado exitosamente:

Code: Select all


IF FILE("c:\<carpeta>\*.*")
    <...>
ENDIF

No estoy seguro si funciona en la versión actual de Harbour.

Saludos,

Re: ¿Cómo saber si existe un directorio o carpeta?

Posted: Mon Jan 06, 2014 10:49 pm
by Pablo César
Roberto Lopez wrote:Hace algún tiempo he usado exitosamente:

Code: Select all

IF FILE("c:\<carpeta>\*.*")
    <...>
ENDIF
No estoy seguro si funciona en la versión actual de Harbour
Solo irá funcionar, si en la carpeta contiene algun archivo.

Un ejemplo de eso, sea en Harbour o en Clipper se comporta de la misma forma:

Code: Select all

#include <hmg.ch>

Function Main()
Local cDir:=DirName()

DirMake(cDir+"\Test")

If File(cDir+"\Test\*.*")
   MsgInfo("The folder "+cDir+"\Test already exist !")
Else
   MsgInfo("The folder "+cDir+"\Test NOT found !")
   If HB_DirExists(cDir+"\Test")
      MsgInfo("But with HB_DirExists it is working properlly...")
   Endif
Endif
Return Nil
Demo9.rar
Executabel file to test
(828.6 KiB) Downloaded 254 times