关于ZIP解压缩的问题.

Question

    VCLUnZip1: TVCLUnZip;        Try
        For I := 0 To Memo2.Lines.Count -1 do
            Begin
                VclUnZip1.FilesList.Clear ;
                VclUnZip1.ZipName := 'C:\1\jiameng\'+Memo2.Lines.Strings[i] ;//Memo2.Lines.Strings[i] := 'aa.zip'
                VclUnzip1.FilesList.Add('*.db') ;
                VclUnZip1.DestDir := 'C:\1\JIA_DATA\' ;
                VclUnZip1.UnZip ;
            End ;
    except
        Memo1.Lines.Add('解压出错,5分钟后自动重试') ;
        Auto_Time := Time + 300/3600/24 ;
        MEdit1.Text := TimeToStr(Auto_Time) ;
        Timer1.Enabled := True ;
        Abort ;
    End ;
   如果AA.ZIP文件不完整OR有错误.怎么能判断出这个文件是错误文件.OR解压时遇到错误文件能自动跳开.有用过TVCLUNZIP的大侠帮解答下.谢谢

Answer 1

估计RAR也没有作到这样,我估计RAR也是用try ... except  end 来处理的.
   

Answer 2

已解决.
        For I := 0 To Memo2.Lines.Count -1 do 
            Begin 
                Try 
                  VclUnZip1.FilesList.Clear ; 
                  VclUnZip1.ZipName := 'C:\1\jiameng\'+Memo2.Lines.Strings[i] ;
                  VclUnzip1.FilesList.Add('*.db') ; 
                  VclUnZip1.DestDir := 'C:\1\JIA_DATA\' ; 
                  VclUnZip1.UnZip ; 
                Except
                End ;
            End ; 
谢谢楼上各位.