Resultados 1 al 3 de 3

Tema: Obtener el Directorio de la aplicación

  1. #1
      Guru de OO COBOL
    E

    Registrado
    agosto de 2015
    Mensajes
    78

    Agradecimientos
     
    Recibidos
    48
    Enviados
    22

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    10
    Concurso: Tercer puesto / Point Value: 0 Innovación / Point Value: 0

    Carpeta Obtener el Directorio de la aplicación

    Olá,

    alguém sabe como descobrir em qual diretório a aplicação está rodando?


    Gracias, Emerson

    0 Not allowed!
    Mejores respuestas Soluciones: 2
    Post Nº2081, Post Nº2082

  2. #2
      Administrador
    Avatar de Kuk

    Registrado
    enero de 2015
    Edad
    37
    Mensajes
    2,010
    Ciudad
    Madrid

    Agradecimientos
     
    Recibidos
    860
    Enviados
    718

    Citaciones y menciones
     
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    5 Post(s)
    Poder de Reputación
    10

    Predeterminado
    1 members found this post helpful.

    @Eslopes, GetCurrentDirectory function (Windows)

    COBOL Código:
    1.      CALL "GetCurrentDirectoryA" WITH STDCALL USING BY VALUE 256
    2.                                                     BY REFERENCE WS-PATH

    0 Not allowed!

    ¿Te han ayudado? NO TE OLVIDES de darle al botón
    ¿Quieres dirigirte a alguien en tu post? Notifícale con una mención, tienes 2 opciones:
    1. Haciendo clic en el icono al lado de su nick
    2. Haciendo clic en el editor al botón y escribiendo su nick.

  3. #3
      Gran amigo del Foro y Guru de COBOL
    Avatar de Rapinto

    Registrado
    febrero de 2015
    Mensajes
    246
    Ciudad
    Porto

    Agradecimientos
     
    Recibidos
    225
    Enviados
    19

    Citaciones y menciones
     
    Mentioned
    0 Post(s)
    Tagged
    0 Thread(s)
    Quoted
    0 Post(s)
    Poder de Reputación
    17
    Activista del Foro / Point Value: 0 Agradecimientos / Point Value: 0 Guru de los Gurus / Point Value: 0

    Predeterminado
    1 members found this post helpful.

    EsLopes,

    Esperimenta com este código:

    COBOL Código:
    1. @OPTIONS NOALPHA
    2. *****************************************************************
    3. *  Copyright (c) 2000 R.P.S.
    4. *  Created      :    Jun 2000
    5. Last Modified:    Jun 2000
    6. *****************************************************************
    7.  IDENTIFICATION DIVISION.
    8.  PROGRAM-ID.    CURRDIR.
    9.  AUTHOR.        Rui Pinto.
    10. *-----------------------------------------------------------------
    11.  ENVIRONMENT DIVISION.
    12.  CONFIGURATION SECTION.
    13.  SPECIAL-NAMES.
    14.  INPUT-OUTPUT SECTION.
    15.  FILE-CONTROL.
    16. *-----------------------------------------------------------------
    17.  DATA DIVISION.
    18.  FILE SECTION.
    19.  WORKING-STORAGE SECTION.
    20.  01  WCURRPATH                      PIC X(256).
    21.  01  WCURRPATHLEN                   PIC S9(009)   COMP-5.
    22.  LINKAGE SECTION.
    23. *----------------- Parameters for CBL_ routines ------------------
    24.  01  CURRPATH                       PIC X(256).
    25.  01  CURRPATHLEN                    PIC 9(009).
    26.  01  CURRESULT                      PIC X(001).
    27. *--------------- End Parameters for CBL_ routines -----------------
    28.  PROCEDURE DIVISION USING CURRPATH CURRPATHLEN CURRESULT.
    29.  MAIN SECTION.
    30.  MAIN-00.
    31. *> This program read the current dir.
    32.      MOVE SPACE TO CURRESULT CURRPATH WCURRPATH.
    33.      MOVE ZERO  TO CURRPATHLEN.
    34. *-----------------------------------------------------------------
    35.  MAIN-10.
    36.      MOVE 256 TO WCURRPATHLEN.
    37.      MOVE ALL SPACE TO WCURRPATH.
    38.      CALL "GetCurrentDirectoryA" WITH STDCALL LINKAGE USING
    39.                                 BY VALUE WCURRPATHLEN
    40.                                 BY REFERENCE WCURRPATH.
    41.      IF RETURN-CODE  = ZERO GO TO MAIN-50.
    42.      INSPECT WCURRPATH REPLACING ALL LOW-VALUES BY SPACE.
    43.  MAIN-20.
    44.      MOVE WCURRPATH   TO CURRPATH.
    45.      MOVE RETURN-CODE TO CURRPATHLEN.
    46.  MAIN-50.
    47.      IF RETURN-CODE  = ZERO
    48.               MOVE "N" TO CURRESULT MOVE 0 TO CURRPATHLEN
    49.         ELSE
    50.               MOVE "Y" TO CURRESULT.
    51.  MAIN-99.
    52.  END PROGRAM CURRDIR.

    Este código está preparado para ser usado a partir de outros programas (através da Linkage).

    Rui Pinto

    0 Not allowed!

Información de Tema

Usuarios Viendo este Tema

Actualmente hay 1 usuarios viendo este tema. (0 miembros y 1 visitantes)

Temas Similares

  1. [Sintaxis] Directorio por defecto en GetFileName
    Por Breew en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 8
    Último Mensaje: 01.05.2018, 20:42
  2. [Herramienta] Ejecutar aplicación PowerCOBOL en tablet Android
    Por jotica en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 10
    Último Mensaje: 24.08.2017, 15:13
  3. Distribución de aplicación con BBDD
    Por Kuk en el foro Bases de datos
    Respuestas: 5
    Último Mensaje: 02.04.2017, 02:32
  4. [Información] Migrar esta aplicación PowerCOBOL a WinDev
    Por Hrmcobol en el foro WinDev
    Respuestas: 7
    Último Mensaje: 15.10.2016, 20:15
  5. [Noticia] Video de Aplicación hecha en PowerCOBOL
    Por Roger en el foro PowerCOBOL (ActiveX, v4 - v11)
    Respuestas: 3
    Último Mensaje: 30.07.2015, 06:22

User Tag List

Etiquetas para este Tema

Permisos de Publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •