/* * $Id$ */ /* * Las siguientes partes son derechos adquiridos de sus autores individuales. * www - http://www.harbour-project.org * * Copyright 2000 Alejandro de G rate * Documentaci¢n en Espa¤ol de: __DIR(), DIR, ADIR() * * Copyright 1999 Chen Kedem * Documentaci¢n en Ingl‚s de: __DIR(), DIR, ADIR() * * Vea doc/license.txt por los t‚rminos de la licencia. * */ /* $DOC$ * $FUNCNAME$ * __Dir()* * $CATEGORY$ * Manejo de Archivos * $ONELINER$ * Muestra por pantalla el listado de archivos. * $SYNTAX$ * __Dir( [] ) --> NIL * $ARGUMENTS$ * M scara de archivos para incluir en el retorno de la * funci¢n. Esta podr¡a contener subdirectorios (path) y caracteres * est ndar usados como comodines, segun sean soportados por el sistema * operativo (como * y ?). Si no contiene la ruta al archivo * entonces SET DEFAULT es usado para mostrar archivos en la m scara. * $RETURNS$ * __Dir() siempre retorna NIL. * $DESCRIPTION$ * Si ninguna es dada, __Dir() muestra informaci¢n acerca de * todos los *.DBF en la ruta SET DEFAULT. Esta informaci¢n contiene: * - Nombre del archivo * - Numero de registros * - Fecha de la ultima actualizaci¢n * - Tama¤o de cada archivo. * * Si es dada, __Dir() lista todos los archivos que * coinciden con la m scara en los siguientes detalles: Nombre, * Extensi¢n, Tama¤o, Fecha. * * El comando DIR es pre-procesado en la funci¢n __Dir() durante el * tiempo de compilaci¢n. * * __Dir() es una funci¢n de compatibilidad, esta fu‚ superada por * DIRECTORY(), la cual devuelve toda la informaci¢n en un arreglo * multidimensional. * $EXAMPLES$ * * __Dir() // Informaci¢n de todos los DBF en el directorio actual * * __Dir( "*.dbf" ) // Lista todos los DBF en el directorio actual * * // Lista todos los PRG de la librer¡a de ejecuci¢n (RTL) de Harbour * // para sistemas operativos compatibles con DOS * __Dir( "c:\harbour\source\rtl\*.prg" ) * * // Lista todos los archivos de la secci¢n p£blica sobre una m quina * // tipo Unix * __Dir( "/pub" ) * * $STATUS$ * R * $COMPLIANCE$ * Informaci¢n de DBF: CA-Clipper muestra nombres de archivos en el * formato 8.3, Harbour muestra los primeros 15 caracteres si un nombre * largo de archivo esta disponible. * * Listado de archivos: para formatear los nombres mostrados usamos algo * as¡ como: * PADR( Nombre, 8 ) + " " + PADR( Ext, 3 ) * CA-Clipper usa nombres de archivo 8.3, con Harbour probablemente se * podr¡a cortar los nombres largos de archivo para llenar este molde. * $FILES$ * La librer¡a es rtl * $SEEALSO$ * ADIR()*,DIRECTORY(),SET DEFAULT,DIR * $END$ */ /* $DOC$ * $FUNCNAME$ * DIR * $CATEGORY$ * Comando * $ONELINER$ * Muestra el listado de archivos * $SYNTAX$ * DIR [] * $ARGUMENTS$ * M scara de archivos para incluir en el retorno de la * funci¢n. Esta podr¡a contener subdirectorios (path) y caracteres * est ndar usados como comdines, segun sean soportados por el sistema * operativo (como * y ?). Si no contiene la ruta al archivo * entonces SET DEFAULT es usado para mostrar archivos en la m scara. * $DESCRIPTION$ * Si ninguna es dada, __Dir() muestra informaci¢n acerca de * todos los *.DBF en la ruta SET DEFAULT. esta informaci¢n contiene: * - Nombre del archivo * - N£mero de registros * - Fecha de la ultima actualizaci¢n * - Tama¤o de cada archivo. * * Si es dada,__Dir() lista todos los archivos que coinciden * con la m scara en los siguientes detalles: Nombre, Extensi¢n, Tama¤o, * Fecha. * * El comando DIR es pre-procesado en la funci¢n __Dir() durante el * tiempo de compilaci¢n. * * __Dir() es una funci¢n de compatibilidad, esta fu‚ superada por * DIRECTORY(), la cual devuelve toda la informaci¢n en un arreglo * multidimensional. * $EXAMPLES$ * * __Dir() // Informaci¢n de todos los DBF en el directorio actual * * __Dir( "*.dbf" ) // Lista todos los DBF en el directorio actual * * // Lista todos los PRG de la librer¡a de ejecuci¢n (RTL) de Harbour * // para sistemas operativos compatibles con DOS * __Dir( "c:\harbour\source\rtl\*.prg" ) * * // Lista todos los archivos de la secci¢n p£blica sobre una m quina * // tipo Unix * __Dir( "/pub" ) * * $STATUS$ * R * $COMPLIANCE$ * Informaci¢n de DBF: CA-Clipper muestra nombres de archivos en el * formato 8.3, Harbour muestra los primeros 15 caracteres si un nombre * largo de archivo est  disponible. * * Listado de archivos: para formatear los nombres mostrados usamos algo * as¡ como: * PADR( Nombre, 8 ) + " " + PADR( Ext, 3 ) * CA-Clipper usa nombres de archivo 8.3, con Harbour probablemente se * podr¡a cortar los nombres largos de archivo para llenar este molde. * $SEEALSO$ * ADIR()*,DIRECTORY(),SET DEFAULT,__DIR()* * $END$ */ /* $DOC$ * $FUNCNAME$ * ADIR()* * $CATEGORY$ * ARRAY * $ONELINER$ * Llena arrays pre-definidos con informaci¢n de archivo / directorio * $SYNTAX$ * ADIR( [], [], [], [], * [], [] ) -> nEntradasDirectorio * $ARGUMENTS$ * M scara de archivos para incluir en el retorno de la * funci¢n. Esta podria contener subdirectorios (path) y caracteres * estandar usados como comodines, segun sean soportados por el sistema * operativo (como * y ?). Si no contiene la ruta al archivo * entonces SET DEFAULT es usado para mostrar archivos en la m scara. * * Array para llenar con el Nombre de los archivos que cumplen * con . Cada elemento es una cadena de caracteres que * incluye el Nombre y Extensi¢n del archivo sin la ruta de acceso. * Nombre es el nombre largo de archivo como es reportado por el sistema * operativo y no necesariamente en el formato may£sculas 8.3 del D.O.S. * * Array para llenar con el Tama¤o de los archivos que * cumplen con . Cada elemento es un n£mero entero con el * tama¤o del archivo en bytes. * Los Directorios siempre tienen un tama¤o cero. * * Array para llenar con la Fecha de la ultima modificaci¢n del * archivo que cumplen con . Cada elemento es del tipo "Date" * * Array para llenar con la Hora de la ultima modificaci¢n del * archivo que cumplen con . Cada elemento es una cadena de * caracteres en el formato: HH:MM:SS. * * Array para llenar con los atributos de los archivos que * cumplen con . Cada elemento es una cadena de caracteres, * Vea DIRECTORY() por informaci¢n sobre los valores de los atributos. * Si Ud. pasa un array a , la funci¢n va a devolver archivos * con los atributos Normal, Oculto (H), sistema (S) y directorio (D) * Si no es especificado o es distinto de un array solo * archivos con atributo normal porian ser devueltos. * * Nota: Al momento de escribir esta documentaci¢n todavia no hab¡a * informaci¢n sobre el comportamiento de esta funci¢n con los * atributos que poseen las maquinas tipo Unix. * $RETURNS$ * ADIR() retorna el n£mero de entradas de archivo que cumplen con la * condici¢n establecida en la m scara . * $DESCRIPTION$ * ADIR() retorna el n£mero de archivos y/o directorios que cumplen con * un formato especificado, este tambien llena una serie de arrays con * Nombre, Tama¤o, Fecha, Hora y Atributo de estos archivos. * El array pasado debe ser pre-inicializado al tama¤o apropiado, vea el * ejemplo m s abajo. * Con motivo de incluir los atributos Oculto (H), sistema (S) o de * directorio (D) debe ser especificado. * * ADIR() es una funci¢n de compatibilidad, esta fue superada por * DIRECTORY(), la cual devuelve toda la informaci¢n en un arreglo * multidimensional. * $EXAMPLES$ * * LOCAL aNombre, aTamano, aFecha, aHora, aAtrib, nLen, i * nLen := ADIR( "*.JPG" ) // Nro de archivos JPG files en directorio * * IF nLen > 0 * aNombre := Array( nLen ) // hace lugar para guardar la informac. * aTamano := Array( nLen ) * aFecha := Array( nLen ) * aHora := Array( nLen ) * aAtrib := Array( nLen ) * * FOR i = 1 TO nLen * ? aNombre[i], aTamano[i], aFecha[i], aHora[i], aAtrib[i] * NEXT * ELSE * ? "Este directorio no tiene ni pelusa" * ENDIF * * $STATUS$ * R * $COMPLIANCE$ * esta yendo a ser llenado con nombres largos de archivo y * no necesariamente con el formato may£sculas 8.3 del D.O.S. * $FILES$ * La librer¡a es rtl * $SEEALSO$ * ARRAY(),DIRECTORY(),SET DEFAULT * $END$ */