home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / FICHEROS.ONU < prev    next >
Text File  |  1998-03-02  |  2KB  |  79 lines
  1. ;;               ┌───────────────────────────────────────────┐
  2. ;;               │  Programa Ficheros, basado en utilidades  │
  3. ;;               │   para ficheros y directorio de MS-DOS,   │
  4. ;;               │     por Miguel Angel Morano Domínguez     │
  5. ;;               └───────────────────────────────────────────┘
  6.  
  7. Variables
  8.   fichero1,fichero2: cadena
  9.   opcion: entero
  10.  
  11. Principio
  12.   Limpia
  13.   opcion:=1
  14.  
  15.   Mientras (opcion<>0) hacer
  16.     Limpia
  17.     Marco ('─',17,2,61,20)
  18.     Posiciona(19, 3); Escribe('EJEMPLO BASICO DE TRATAMIENTO DE FICHEROS')
  19.     Posiciona(23, 5); Escribe('1.- Borrar fichero.')
  20.     Posiciona(23, 7); Escribe('2.- Renombrar fichero.')
  21.     Posiciona(23, 9); Escribe('3.- Directorio actual.')
  22.     Posiciona(23,11); Escribe('4.- Estadisticas del disco.')
  23.     Posiciona(23,13); Escribe('5.- Crear directorio.')
  24.     Posiciona(23,15); Escribe('6.- Borrar directorio.')
  25.     Posiciona(23,17); Escribe('0.- Salida.')
  26.     Posiciona (23,19)
  27.     Escribe ('Opcion:')
  28.     Posiciona (31,19)
  29.     AceptaEntero (opcion,1)
  30.  
  31.     Si opcion=1 entonces
  32.       Limpia
  33.       Escribe ('Nombre del fichero a borrar con extensión: ')
  34.       AceptaCadena (fichero1,10)
  35.       AbreLectura(fichero1)
  36.       Cerrar (fichero1)
  37.       Borrar (fichero1)
  38.     Finsi
  39.  
  40.     Si opcion=2 entonces
  41.       Limpia
  42.       Escribe ('Nombre del fichero a renombrar con extensión: ')
  43.       AceptaCadena (fichero1,10)
  44.       Escribe ('Nuevo nombre del fichero con extensión: ')
  45.       AceptaCadena (fichero2,10)
  46.       Escribe ('Renombrando ',fichero1,  ' a ',fichero2)
  47.       Renombrar (fichero1,fichero2)
  48.     Finsi
  49.  
  50.     Si opcion=3 entonces
  51.       Limpia
  52.       Escribeln ('Directorio actual...',DirectorioActual)
  53.       Aceptatecla
  54.     Finsi
  55.  
  56.     Si opcion=4 entonces
  57.       Limpia
  58.       Escribeln('El disco y directorio actual es -> ', DirectorioActual)
  59.       Escribeln(EspacioLibre Dividido 1024, ' Kbytes libres ')
  60.       Escribeln(EspacioTotal Dividido 1024, ' Kbytes de capacidad')
  61.       Aceptatecla
  62.     Finsi
  63.  
  64.     Si opcion=5 entonces
  65.       Limpia
  66.       Escribe ('Nombre del directorio a crear: ')
  67.       AceptaCadena (fichero1,10)
  68.       CrearDirectorio(fichero1)
  69.     Finsi
  70.  
  71.     Si opcion=6 entonces
  72.       Limpia
  73.       Escribeln ('Nombre del directorio a borrar: ')
  74.       AceptaCadena (fichero1,10)
  75.       BorrarDirectorio(fichero1)
  76.     Finsi
  77.  
  78.   Finmientras
  79.