Private Sub CreateZip(ByVal zipfilename As String, ByVal FilenameList As _
     List(Of String))
      ' Diese beiden Zeilen erzeugen einen Windows eigenen Zip-Container
      Dim ZipBuffer() As Byte = {&H5A, &H69, &H70, &H0}
      My.Computer.FileSystem.WriteAllBytes(zipfilename & ".ZFSendToTarget", _
        ZipBuffer, False)
 
 
      ' Dateien in den Container kopieren
      Try
         For Each s As String In FilenameList
            IO.File.Copy(s, IO.Path.Combine(zipfilename, IO.Path.GetFileName( _
              s)), False)
         Next
      Catch ex As System.IO.IOException
         MessageBox.Show(ex.ToString, "IO-Fehler", MessageBoxButtons.OK, _
           MessageBoxIcon.Error)
      End Try
   End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control