Progress - Buscar Archivo en Directorio

   
Vista:

Buscar Archivo en Directorio

Publicado por Afrika (48 intervenciones) el 22/05/2008 20:02:18
Disculpen que haga un post con la misma pregunta.

............. Bien, lo que quiero hacer es una busqueda en mi directorio "C" (por ejemplo) para buscar un archivo txt y renombrarlo, pero por lo que veo estoy de atras para adelante.... Ok, ya se como obtener la extension (gracias ;-) ); pero ahora como hago la busqueda en el directorio.

En el directorio solo voy a tener un solo archivo "txt" que es el que hablamos en la nota anterior, pero que pasa!?.... que yo necesito buscar en ese directorio el archivo. Cual es el problema!?... que el nombre del archivo puede variar, entonces yo me podria conseguir algo como:

C:carpetamarielita.txt

C:carpetaola.txt

Este es el codigo:
ASSIGN rutaTXT = "c:carpeta ".
ASSIGN rutaBCK = "c:carpeta ".
.
.
.(PROCEDIMIENTO PARA OBTENER EXTENSION)
.
.
OS-RENAME VALUE(rutaTXT) VALUE(rutaBCK).

Entonces no le puedo decir a rutaTXT = "C:carpetamarielita.txt" porque tambien podría ser
rutaTXT = "C:carpetaola.txt" ..... es decir, el nombre del archivo cambia.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Buscar Archivo en Directorio

Publicado por Miguel Angel (140 intervenciones) el 22/05/2008 23:53:45
A lo mejor te sirve este ejemplo, aquí leo un directorio y busco aquellos archivos que tienen extensión .prn. En mi caso los despliego, pero bien pudiera renombrarlos.

EF VAR lv-archivo AS CHAR FORMAT "x(40)".
DEF VAR lv-extension AS CHAR.

DEFINE VARIABLE search-dir AS CHARACTER.
DEFINE VARIABLE FILE-NAME AS CHARACTER FORMAT "x(16)" LABEL "Archivo".

search-dir = "C: ransfer".

INPUT FROM OS-DIR(search-dir) NO-ECHO.

REPEAT:
UPDATE FILE-NAME FORMAT "x(40)".
IF NUM-ENTRIES(FILE-NAME,".") = 2 THEN
lv-extension = ENTRY(2,FILE-NAME,".").
IF lv-extension = "prn" THEN
DISPLAY FILE-NAME FORMAT "x(40)"
"<----".
END.
INPUT CLOSE.

saludos.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar Archivo en Directorio

Publicado por Afrika (48 intervenciones) el 23/05/2008 00:33:54
Ok, entonces donde dice:

search-dir = "C: ransfer".

yo le asigno: search-dir = "C:/carpeta/*.txt". !???

Es que no entiendo lo de "ransfer" !!

Gracias M.A.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar Archivo en Directorio

Publicado por Afrika (48 intervenciones) el 23/05/2008 17:53:15
Ok... entendido!

Ya me funcionó. Muchisimas GRACIAS M.A.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar Archivo en Directorio

Publicado por Miguel Angel (140 intervenciones) el 23/05/2008 21:18:28
: )
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Buscar Archivo en Directorio

Publicado por abdiel huertas Sabdy_16@hotmail.com (1 intervención) el 08/12/2011 23:17:56
excelente aportacion!!!!

gracias
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar