FiveTech Software tech support forums

Master Antonio:

Hecho, muchas gracias.

Saludos

Estimado Armando, Esto te da las subcarpetas: aFilInDir := Directory( cDirGlb + "*.*", "D" ) ? Len( aFilInDir ) // dinos que cantidad te aparece aqui Ahora usa el segundo nombre, que debe ser la carpeta, como path: aFilInDir := Directory( cDirGlb + aFilInDir[ 2 ] + "\",...

Armando, mira se ayuda: // C:\FWH..\SAMPLES\UNZIP2.PRG simples teste. kapiabafwh@gmail.com#include "FiveWin.ch"#Include "Directry.ch"#Define CLR_PINK       nRGB( 255, 128, 128 ) //-> Rosa. uiiii. kkkkkk#Define CLR_NBLUE      nRGB( 128,...

Amigos: Encontré el problema, el código es correcto, el problema radica en que los ficheros a extraer están en una carpeta y la carpeta dentro del ZIP y el código espera que los ficheros formen el ZIP, espero haberme explicado. FICHERO.ZIP | |-----> 092023 <===== esta es la carpeta (NO SIEMPRE...

Armando, muestre:    cDirGlb  ó la FUNCTION completa, porfa. https://forums.fivetechsupport.com/viewtopic.php?f=3&t=33637&start=0 PBACKUP para HARBOUR: https://mega.nz/file/II9GTBLZ#h4aAe8VgDqbICFsLRu8lXI5xLH-YbTq3Z3ekImYvOFg Armando: Compila perfecto con HARBOUR para...

Master Antonio:

Gracias por tu respuesta

? cDirGlb <==== C:\AppXmls\092023\

Como ves, ya incluye la última diagonal inversa.

Saludos

Estimado Armando,

Prueba con:

Directory(cDirGlb + "\*.Xml" )

Amigos: Manuel ya había visto tu post, de ahi tome el ejemplo Willi, gracias por tu código Gracias a ambos por sus respuestas las he mirado pero tal vez tengo ceguera de taller pues no logro el objetivo, pongo mi código que no me funciona por si encuentran mi error.       // Determinamos cuantos y c...

Mi estimado *cFile      archivo zip  *cPass     password si lo tiene el zipcFTem   := GetEnv("TMP") + "\"   ***ruta donde se desziperan los archivosaFile := HB_GETFILESINZIP( cFile )            ***array con los archivos zipeadosIf !HB_UNZIPFILE( cFile, , .t., cPass, cFTem...

Hola Armando,

No sé si has mirado esto: viewtopic.php?f=6&t=43427&hilit=unzipfile

El mismo código me funciona también con harbour.

Amigos: Un ejemplo de hb_UnZipFile con Harbour?, por favor!       IF ! hb_UnZipFile( cPathFile,,(.F.),,cDirGlb,aFilInZip)         MsgStop("Falló la descompresión, posiblemente el archivo ZIP está dañado !",cAppName)         RETURN(.F.)      ENDIF  No me tira...

Manuel, muchas gracias. voy hacer cambios en mi version.

Regards, saludos.

Excelente, ¿es posible enviarme la FUENTE COMPLETA a mi correo? ¿O publicar completo aquí? Si no es posible, no hay problema. Gracias. Regards, saludos. Aquí lo tienes, sólo es una adaptación de xBlite (y mis disculpas por la "suciedad" del código, hace más de quince años que no lo tocaba...

Excelente, ¿es posible enviarme la FUENTE COMPLETA a mi correo? ¿O publicar completo aquí? Si no es posible, no hay problema.

Gracias.

Regards, saludos.

karinha wrote:Estimado Manuel, ¿estás usando TSBROWSE() en tu versión o XBROWSE()?

Gracias.

Regards, saludos.

Hola Karinha, uso Listbox

Code: Select all  Expand view

REDEFINE LISTBOX oBrowseZip FIELDS "" ;
      HEADERS "Nombre", "Tamaño", "Fecha", "Ruta" ;
      SIZES   100, 80, 80, 150 ;