>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 >>