No meu ambiente utilizo a seguinte procedure para zipar um arquivo. O Filzip precisa estar instalado no caminho C:\Filzip\Filzip.exe.
CREATE PROCEDURE [dbo].[stpCompacta_Arquivo] ( @Nm_Zip varchar(1000), @Nm_Arquivo varchar(1000), @Falhar tinyint)
AS BEGIN
DECLARE @Comando varchar(3000)
SET @Comando = 'C:\Filzip\Filzip.exe -a -r "'+@Nm_Zip+'" "'+@Nm_Arquivo+'"'
EXEC master..xp_cmdshell @Comando, no_output
IF (OBJECT_ID('TempDB..#Diretorio') IS NOT NULL) DROP TABLE #Diretorio
CREATE TABLE #Diretorio ( Arquivo varchar(5000) )
DECLARE @Index tinyint
SET @Index = Len(@Nm_Zip) - charIndex('\',Reverse(@Nm_Zip))
DECLARE @Pasta varchar(1000)
SET @Pasta = SubString(@Nm_Zip,1,@Index)
SET @Comando = 'dir /b "'+@Pasta+'"'
INSERT INTO #Diretorio
EXEC Master..XP_CmdShell @Comando
DECLARE @Zip varchar(1000)
SET @Zip = SubString(@Nm_Zip,@Index+2,Len(@Nm_Zip))
IF (NOT EXISTS (SELECT * FROM #Diretorio WHERE Arquivo = @Zip) AND @Falhar = 1) SELECT 1/0
Fabrício França Lima | MCP, MCTS, MCITP | Visite meu site: http://fabriciodba.spaces.live.com/
