ZipForge1.FileName = Ordner & ".zip"
        ZipForge1.Active = True
        ZipForge1.BaseDir = Ordner & "/"
        ZipForge1.CompressionLevel = _
          ComponentAce.Compression.Archiver.CompressionLevel.None
        ZipForge1.CompressionMethod = _
        ComponentAce.Compression.Archiver.CompressionMethod.None
        ZipForge1.CompressionMode = 0
        Panel1.Visible = True
        ProgressBar2.Value = 0
        ProgressBar2.Maximum = Dateien.Count
        For x As Integer = 0 To Dateien.Count - 1
            ZipForge1.AddFiles(Ordner & Dateien(x))
            ProgressBar2.Value += 1
            TextBox6.Text &= "Datei wurde gezippt: " & Dateien(x) & Chr(13) & _
              Chr(10)
            TextBox6.Select(TextBox6.TextLength, 0)
            TextBox6.ScrollToCaret()
            If x Mod 160 = 0 Then Application.DoEvents()
        Next
        ZipForge1.TestFiles()
        ZipForge1.Active = False

__________________________________
irgendwas wird schon rauskommen^^