Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Noticia] PowerCOBOL v11 - ¡¡¡Sí que existe!!! Josber PowerCOBOL (ActiveX, v4 - v11) 47 14 de julio de 2018 23:38
[Información] Saber qual a form em execução ? Paulo NetCOBOL for Windows 2 28 de junio de 2018 10:21
[Información] ¿Existe alguna version de RM/Cobol gratuita? JuanPelaez RM/COBOL 1 27 de abril de 2018 18:26
[Sintaxis] Ver si existe un archivo JuanJuan77 PowerCOBOL (ActiveX, v4 - v11) 4 20 de mayo de 2016 17:06
[Información] Generalidades a saber Kuk MicroFocus UNIX/Linux 4 29 de noviembre de 2015 22:57
Respuesta
 
Herramientas

  #1
Antiguo 11 de marzo de 2020, 17:49
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad08.11.2020 19:03
PROCEDURE DIVISION
PostsPosts: 48
Ha dicho GraciasEnviado: 65
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Begoguay is on a distinguished road
Predeterminado Como saber si existe una carpeta

Hola foreros.

Necesito saber si existe una carpeta. He estado mirando en las rutinas _CBL, y no encuentro ninguna que me sirva.

¿Alguien sabe alguna forma?

Un saludo.
Begoguay no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 11 de marzo de 2020, 21:19
IDENTIFICATION DIVISION
Gusaiello
Novato Senior
Activista del Foro: Activista del Foro - Razón: Por aportar ejecrcicios para los novatos 
ENVIRONMENT DIVISION
Avatar de Gusaiello
DATA DIVISION
Forero desde (Registrado)febrero 2015
Argentina
Ubicación Quilmes, Buenos Aires
Edad65 años
Última Actividad26.11.2020 20:32
PROCEDURE DIVISION
PostsPosts: 113
Ha dicho GraciasEnviado: 34
Ha recibido agradecimientosRecibido: 67
Mejores respuestasSoluiones: 7
ReputaciónReputación: 12
Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road Gusaiello is on a distinguished road
Predeterminado

Lo mas simple que se me ocurre es intentar crearla, si el resultado es exitoso es por que no existía y si no lo es, es por que acabas de crearla (la carpeta no existía).

Luego veras que hacer con ella, si usarla o eliminarla.
Gusaiello no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Begoguay (11 de marzo de 2020)
  #3
Antiguo 14 de marzo de 2020, 11:27
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad26.11.2020 23:21
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Begoguay, prueba con esto: 4.3 CBL_CHECK_FILE_EXIST

---------- Post añadido : 11:27 ---------- Post anterior : 10:55 ----------

Begoguay, cuéntanos si ha funcionado


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Begoguay (13 de marzo de 2020)
  #4
Antiguo 19 de marzo de 2020, 16:07
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad08.11.2020 19:03
PROCEDURE DIVISION
PostsPosts: 48
Ha dicho GraciasEnviado: 65
Ha recibido agradecimientosRecibido: 4
Mejores respuestasSoluiones: 1
ReputaciónReputación: 0
Begoguay is on a distinguished road
Predeterminado

Kuk, siento decirte que con eso no funciona.

Gusaiello, eso ya lo había pensado, pero no quiero crear una carpeta que de momento no voy a utilizar para nada.

Gracias a los dos igualmente

Un saludo
Begoguay no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 19 de marzo de 2020, 18:13
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad26.11.2020 23:21
PROCEDURE DIVISION
PostsPosts: 1.659
Ha dicho GraciasEnviado: 471
Ha recibido agradecimientosRecibido: 662
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Begoguay, creo recordar que a mi con el CBL_CHECK_FILE_EXIST2 me funcionaba.

Si no, lo que se me ocurre es que pongas en el form un CmFolder, le metas la ruta "padre" que te interesa y luego con un bucle verificas todas las carpetas por su nombre.

No sé si me explico

Y luego, claro está, siempre te queda la WinAPI : GetFileAttributesA function (fileapi.h) - Win32 apps | Microsoft Docs


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Begoguay (20 de marzo de 2020)
  #6
Antiguo 19 de marzo de 2020, 21:05
IDENTIFICATION DIVISION
Armando
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Armando
DATA DIVISION
Forero desde (Registrado)febrero 2015
Uruguay
Ubicación Montevideo
Edad62 años
Última Actividad11.11.2020 00:12
PROCEDURE DIVISION
PostsPosts: 22
Ha dicho GraciasEnviado: 3
Ha recibido agradecimientosRecibido: 10
Mejores respuestasSoluiones: 2
ReputaciónReputación: 0
Armando is on a distinguished road Armando is on a distinguished road
Predeterminado

Hola, podes tambien chequear si te deja crear un archivo, si da error, pasas a crear el directorio:
Saludos
armando

Código COBOL:
  1. VALIDO-DIR.
  2.         MOVE POW-FALSE TO bNO-DIR.
  3.        
  4.         OPEN OUTPUT MARQUITA.
  5.         IF NOT TODO-OK
  6.             MOVE POW-TRUE TO bNO-DIR
  7.             GO FVALIDO-DIR
  8.         END-IF.
  9.  
  10.         CLOSE MARQUITA.
  11.                 DELETE FILE MARQUITA.
  12.  FVALIDO-DIR.
  13.         EXIT.  
  14.  
  15.  CREO-DIR.
  16.                 CALL "CBL_CREATE_DIR"
  17.             USING cPATH-ACREAR
  18.             RETURNING status-code.
  19.  CONTROLO-CREADO.
  20.         IF status-code NOT = 0  *>aca se da mensaje
Armando no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Begoguay (24 de marzo de 2020)
Respuesta


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 04:06.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.