Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
ZipFolder() in vfpcompression.fll
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01253880
Message ID:
01254073
Vues:
34
I don't use vfpcompression.fll. We're using Dynazip since long before the fll was created.

>
>I did it.
>While waiting for his answer I have do this.
>
>Do You use vfpcompression.fll for the backup in your applications ?
>
>Good evening
>
>Bernhart
>
>
>
>FUNCTION test149()
>
>  LOCAL fso,;
>    f1
>
>  CLEAR
>  fso = CREATEOBJECT("Scripting.FileSystemObject")
>  SET LIBRARY TO LOCFILE("vfpcompression.fll")
>  IF zipopen( "data21.zip" , "C:\" , .F.)
>    IF zipfolder("C:\cdbk90\Amline\Data1" , .F. )
>      IF FILE( "c:\data21.zip" )
>        IF zipclose()
>          f1 = fso.GETFILE( "c:\data21.zip" )
>          f1.MOVE("c:\Backup\data21.zip" )
>       ENDIF
>      ENDIF
>    ENDIF
>  ENDIF
>  zipclose()
>
>  SET LIBRARY TO
>
>  fso = .NULL.
>
>ENDFUNC
>
>
--sb--
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform