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

[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

[Pablo César]

Hola Rafael, feliz año nuevo para vos tambien.

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

[arroya2]

Gracias Pablo Cesar, lo probaré.

Saludos
Rafael Pérez

[Roberto Lopez]

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,

[Pablo César]

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 242 times