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
Noticias y Avisos
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 22:38
[Información] Saber qual a form em execução ? Paulo NetCOBOL for Windows 2 28 de junio de 2018 09:21
[Información] ¿Existe alguna version de RM/Cobol gratuita? JuanPelaez RM/COBOL 1 27 de abril de 2018 17:26
[Sintaxis] Ver si existe un archivo JuanJuan77 PowerCOBOL (ActiveX, v4 - v11) 4 20 de mayo de 2016 16:06
[Información] Generalidades a saber Kuk MicroFocus UNIX/Linux 4 29 de noviembre de 2015 21:57
Respuesta
 
Herramientas

  #1
Antiguo 11 de marzo de 2020, 16:49
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad02.06.2020 19:58
PROCEDURE DIVISION
PostsPosts: 47
Ha dicho GraciasEnviado: 64
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, 20:19
IDENTIFICATION DIVISION
Gusaiello
Novato Junior
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 Actividad05.06.2020 12:40
PROCEDURE DIVISION
PostsPosts: 98
Ha dicho GraciasEnviado: 33
Ha recibido agradecimientosRecibido: 62
Mejores respuestasSoluiones: 7
ReputaciónReputación: 11
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, 10:27
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad05.06.2020 15:29
PROCEDURE DIVISION
PostsPosts: 1.565
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 628
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, 15:07
IDENTIFICATION DIVISION
Begoguay
Novato Junior
ENVIRONMENT DIVISION
Avatar de Begoguay
DATA DIVISION
Forero desde (Registrado)febrero 2015
España
Ubicación Valladolid
Última Actividad02.06.2020 19:58
PROCEDURE DIVISION
PostsPosts: 47
Ha dicho GraciasEnviado: 64
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, 17:13
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
Ubicación Madrid
Edad35 años
Última Actividad05.06.2020 15:29
PROCEDURE DIVISION
PostsPosts: 1.565
Ha dicho GraciasEnviado: 408
Ha recibido agradecimientosRecibido: 628
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, 20: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 Actividad04.06.2020 21:22
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 16:12.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.