Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

static function ExtractFromArchive(cArc,cDir)
******************************************************************
LOCAL oZip := XbZLibZip():New(),lSubD := .t.,cFSpec := "*.*",cRepl := "N"
LOCAL nOvr := XBZ_OVERWRITE_OLDER
     oZip:Log:Open(left(cArc, At('.zip', lower(cArc))) + 'log')
     if left(upper(cRepl), 1) == 'A'
          nOvr := XBZ_OVERWRITE_ALL
     elseif left(upper(cRepl), 1) == 'N'
          nOvr := XBZ_OVERWRITE_NEVER
     endif
     oZip:SetDisplayObject(SetAppWindow())
     oZip:Open(cArc, XBZ_OPEN_READ)
     if oZip:IsOpen()
          oZip:Extract(cDir, cFSpec, lSubD, nOvr)
     endif
     oZip:Close()
return .t.

Code: Alles auswählen

		cPath     := upper( CurDrive() ) + ':' + left( datenpfad, len( datenpfad ) - 1 )
		cZipFile  := upper( CurDrive() ) + ':' + archiv + "\" + katname + ".zip"
		if file( cZipFile )
			delete file ( cZipFile )
		endif
		oZip := XbZLibZip():New()
		oZip:SetDisplayObject( ::Static1 )
		oZip:Open( cZipFile, XBZ_OPEN_CREATE, XBZ_BEST_COMPRESSION )
		oZip:AddFile( cPath )
		oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katname )
		if ::lPDF .and. File( vordruckpfad + katname, "D" )
			oZip:AddFile( vordruckpfad + katname )
		endif
		if l2s .and. File( cPath + "\TAG2", "D" )
			oZip:AddFile( cPath + "\TAG2" )
		endif
		if l2s .and. File( upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2", "D" )
			oZip:AddFile( upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2" )
		endif
		oZip:AddDir( "*.dbf", cPath, , .f., .t., .f. )
		if l2s .and. File( cPath + "\TAG2", "D" )
			oZip:AddDir( "*.dbf", cPath + "\TAG2", , .f., .t., .f. )
		endif
		if ::lPDF .and. File( vordruckpfad + katname, "D" )
			oZip:AddDir( "*.pdf", upper( CurDrive() ) + ':' + vordruckpfad + katname, , .f., .t., .f. )
		endif
		oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + katname, , .f., .t., .f. )
		oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + katname, , .f., .t., .f. )
		oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + katname, , .f., .t., .f. )
		if l2s .and. File( upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2", "D" )
			oZip:AddDir( "*.txt", upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2", , .f., .t., .f. )
			oZip:AddDir( "*.rtf", upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2", , .f., .t., .f. )
			oZip:AddDir( "*.csv", upper( CurDrive() ) + ':' + textpfad + "\" + katname + "\TAG2", , .f., .t., .f. )
		endif
		oZip:Close()