首页 > Linux操作系统 > Linux操作系统 > 【原创】利用SSIS压缩文件


原创 Linux操作系统 作者:magicgao8888 时间:2009-04-21 10:16:41 0 删除 编辑
前些日子在处理客户的一个需求的时候需要将处理过的平面文件Zip后备份,先开始想着网上有现成的第三方支持软件,直接安装这个组件就OK. 这个想法最终被PM和客户否定,于是就想到了用vb.net来处理这个东东了.不废话,直接上我写好的文档吧。

Normal 0 false false false EN-US ZH-CN X-NONE Using SSIS to zip files


Technical Specification

1 Overview

This article makes use of global variables throughout and shows how they can be used in SSIS, you can adapt these to make a package that can be made as flexible as you want. The package described here zips all files in a folder to a single archive zip file. To zip files this package uses 7-zip available from, it has some limitations on file sizes, but its Open source and freely available for download. You will need to install this first for the package to work. This is a useful application and some of the options available using this tool include the ability to password protect your zip files.

2 Add Variables

Firstly in SSIS you need to create the variables to be used throughout.

Remember in SSIS variables are case sensitive.     

InFileType should contain the extension of the file type, in the example I am zipping txt files, it could be any other file type compatible for zipping or * for files of any type.

InFolder is the Folder where the files you want to zip up reside

OutExecutable is to be populated in the script. task so leave blank.

OutFileName is to be populated in the script. task so leave blank.

OutFolder is where you want to place the final zip file, it can be the same as the InFolder or any other specified location.

OutMessage is to be populated in the script. task so leave blank.

OutSubject is to be populated in the script. task so leave blank

3 Next add a script. task

                                          i.    Set the script. task varaibles


a) You will need to set the ReadOnlyVaraibles to:



b) And the ReadWriteVariables to:




                                        ii.    DesignVB.NET Script

Then in the Design script. add the following script.


Imports System

Imports System.Data.OleDb

Imports System.IO


Public Class ScriptMain


    Public Sub Main()


        Dim InFolder, InFileType, OutFileName, OutExecutable, OutSubject, OutFolder, OutMessage As String

        Dim FileDate, strDay, strMonth, strYear As String


        InFolder = Trim(CStr(Dts.Variables("User::InFolder").Value))

        OutFolder = Trim(CStr(Dts.Variables("User::OutFolder").Value))

        InFileType = Trim(CStr(Dts.Variables("User::InFileType").Value))


        strDay = CStr(Day(Now))

        strMonth = CStr(Month(Now))

        strYear = CStr(Year(Now))


        If Len(strDay) = 1 Then

            strDay = "0" + strDay

        End If


        If Len(strMonth) = 1 Then

            strMonth = "0" + strMonth

        End If


        FileDate = strYear + strMonth + strDay


        OutFileName = "Archive" + FileDate + ".zip"

        OutExecutable = " a -tzip """ + OutFolder + OutFileName + """ """ + InFolder + "*." + InFileType + """"


        OutSubject = "Attached Zipped Files:- " + OutFileName

        OutMessage = "Add your message here"


        Dts.Variables("User::OutExecutable").Value = OutExecutable

        Dts.Variables("User::OutFileName").Value = OutFolder + OutFileName

        Dts.Variables("User::OutSubject").Value = OutSubject

        Dts.Variables("User::OutMessage").Value = OutMessage


        Dts.TaskResult = Dts.Results.Success


    End Sub


End Class


This script. creates a zipped file called Archive with a date appended for good measure. Alter the subject (OutSubject) and Message (OutMessage) as required


4 Next add a Execute Process task

The Executable should point to the location of 7-Zip, and its Working directory as in the diagram.

In the Expressions add the OutExecutable as the arguments as in the diagram.


来自 “ ITPUB博客 ” ,链接:,如需转载,请注明出处,否则将追究法律责任。

上一篇: EOS终于到手啦


  • 博文量
  • 访问量