delete_archive

IF EXISTS (SELECT * FROM sysobjects 
           WHERE id = OBJECT_ID('dbo.delete_archive') 
           AND sysstat & 0xf = 4)
	DROP PROCEDURE dbo.delete_archive
GO

CREATE PROCEDURE delete_archive
     @archive VARCHAR(80) = ' ',
     @debug VARCHAR(5) = 'false'      
AS
DECLARE @myName VARCHAR(30),
        @CMD VARCHAR(255),
        @CMDstatus INT
         
/*
  Procedure delete_archive will maintain the archive 
  remove files with extension of .zzz (only if .zip exist) 
  then rename files with extension of .zip to .zzz
*/   

SET NOCOUNT ON

SELECT @myName = 'admin..delete_archive'

IF (@archive = ' ')
  BEGIN
    PRINT "  usage: delete_archive [@archive = ]," 
    RETURN 1
  END

SELECT @CMD = 'dir ' + @archive + '\*.zip'
EXEC @CMDstatus = dispatch @CMD, @myName, @debug
IF (@CMDstatus = 0) -- found
  BEGIN
    SELECT @CMD = 'dir ' + @archive + '\*.zzz'
    EXEC @CMDstatus = dispatch @CMD, @myName, @debug
    IF (@CMDstatus = 0) -- found
      BEGIN
        SELECT @CMD = 'del ' + @archive + '\*.zzz'
        EXEC @CMDstatus = dispatch @CMD, @myName, @debug
      END
    SELECT @CMD = 'ren ' + @archive + '\*.zip '+ '*.zzz'
    EXEC @CMDstatus = dispatch @CMD, @myName, @debug
  END  
RETURN
GO