Power Builder - Leer Archivo en directorio

 
Vista:

Leer Archivo en directorio

Publicado por Rodrigo (11 intervenciones) el 23/03/2006 17:26:16
Por favor como se realiza desde Pb la lectura del nombre de archivo en un directorio, por decir tengo un directorio llamado concpeto y dentro un archivo cuyo nombre el dlg.ttxt 510 13/02/2005
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:Leer Archivo en directorio

Publicado por Jorge (900 intervenciones) el 23/03/2006 17:53:41
Hola
Si solo deseas saber que existe

String Path

Path = "C:\Concepto\dlg.txt

If fileexists Path Then
// .....
End if

si deseas ver todos los archivos de esa carpeta
puedes utilizar un lisbox con la funcion dirlist

lb_1.DirList("C:\Concepto\*.TXT", 0)

SI no es no que necesitas comentanos.

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:Leer Archivo en directorio

Publicado por Rodrigo (11 intervenciones) el 23/03/2006 17:57:13
Si es una parte pero desde estos punto necesito obtener el tamaño y la fecha creacion con el fin de generar un log de modificación de los archivos..

Su colaboracion a sido de gran ayuda
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

RE:Leer Archivo en directorio

Publicado por Jorge (900 intervenciones) el 23/03/2006 18:39:26
Hola

Longitud

FileLength(Path)

Fecha de creacion deberemos usar unas API

//Declarar en Local External Functions

//Datos de un Archivo fecha-hora etc
FUNCTION long FindFirstFileA ( string filename, ref os_finddata findfiledata) LIBRARY "KERNEL32.DLL"
FUNCTION boolean FindClose (long handle) LIBRARY "KERNEL32.DLL"
FUNCTION boolean FileTimeToLocalFileTime ( ref os_filedatetime lpFileTime, ref os_filedatetime lpLocalFileTime) LIBRARY "KERNEL32.DLL"
FUNCTION boolean FileTimeToSystemTime (ref os_filedatetime lpFileTime, ref os_systemdatetime lpSystemTime) LIBRARY "KERNEL32.DLL"

//En el Scrip

os_FindData lstr_FindData
os_FindData lstr_FindDataTemp
os_SystemDatetime lstr_SystemDateTime
long handle
String ls_timestamp

handle=FindFirstFileA (File, lstr_FindData)

IF handle=-1 THEN
Return "Error en el Archivo de Consulta"
Else

FileClose(handle)
FileTimeToLocalFileTime (lstr_FindData.str_lastwritetime, lstr_FindDataTemp.str_lastwritetime)
IF FileTimeToSystemTime (lstr_FindDataTemp.str_lastwritetime, lstr_SystemDateTime) THEN
ls_timestamp = string (datetime(date(lstr_SystemDateTime.wYear, &
lstr_SystemDateTime.wMonth, lstr_SystemDateTime.wDay), &
time(lstr_SystemDateTime.wHour, &
lstr_SystemDateTime.wMinute,lstr_SystemDateTime.wSecond)), &
"dd/mm/yyyy hh:mm:ss")
END IF
END IF

// este return si haces una funcion.
//Return ls_timestamp

//En este caso se necesita sólo la fecha
//y hora de creación del archivo, se
//la almacena en la variable ls_timestamp

//La demás información se almacena en la
//variable lstr_FindData de tipo estructura,
//de esta variable puedes sacar la información que requieras.

Luego solo debes aplicar con setitem a las columnas de tu dw

Espero te ayude Suerte te deseo desde ARGENTINA
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:Leer Archivo en directorio

Publicado por Rodrigo (11 intervenciones) el 23/03/2006 21:39:47
Gracias po rña yuda ha sido muy valiosa con esto he logrado resolver mi problema otra vez muchas 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