DISKSPACE( )

Devuelve el espacio disponible en el disco especificado

Sintaxis

     DISKSPACE([]) –> nBytes

Argumentos

es el número de la unidad que se va a examinar, donde uno es la unidad A, dos es B, tres es C, etc. Si se omite o se especifica cero, el valor por defecto es la unidad DOS actual.

Devuelve

DISKSPACE() devuelve el número de bytes de espacio vacío en la unidad de disco especificada, en forma de valor numérico entero.

Descripción

DISKSPACE() es una función de entorno que determina el número de bytes disponibles en la unidad de disco especificada. Se utiliza antes de ejecutar un mandato COPY o SORT en otra unidad, para determinar si existe suficiente espacio. También puede utilizarse con RECSIZE() y RECCOUNT() para crear un procedimiento para realizar una copia de seguridad de ficheros de base de datos.

DISKSPACE() es independiente del valor de SET DEFAULT.

Ejemplos

     ¦  Este ejemplo es una función definida por el usuario que muestra la utilización de DISKSPACE() para hacer una copia de seguridad de un fichero de base de datos en otra unidad:

     FUNCTION CopiaSeg( cFicheroDestino, cUnidadDestino )

           LOCAL nEspacioNecesario, nUnidadDestino

           //

           nEspacioNecesario := INT((RECSIZE() * ;

              LASTREC()) + HEADER() + 1)

           nUnidadDestino := ASC(UPPER(cUnidadDestino)) – 64

           //

           IF DISKSPACE(nUnidadDestino) < nEspacioNecesario

              RETURN .F.

           ENDIF

           COPY TO (cUnidadDestino + “:” + cFicheroDestino)

           //

           RETURN .T.

 Ficheros:  La biblioteca asociada es EXTEND.LIB, el fichero fuente es EXAMPLEC.C.