Hallo,
ich hätte da mal eine Frage als Newbie:
Ich rufe über
'Code
[highlight=vbnet]
Private Sub CreateZipFile(ByVal Filename As String)
Dim Encoder As New System.Text.ASCIIEncoding
Dim Header As String = "PK" & Chr(5) & Chr(6)
Header = Header.PadRight(22, Chr(0))
My.Computer.FileSystem.WriteAllBytes(Filename, Encoder.GetBytes_ (Header), False)
End Sub
Private Sub ZipFile(ByVal Input As String, ByVal Filename As String)
Dim Shell As New Shell32.Shell
CreateZipFile(Filename)
Shell.NameSpace(Filename).CopyHere(Input)
End Sub
Private Sub BtnEigene_Click(ByVal sender As System.Object, ByVal e As _ System.EventArgs) Handles BtnEigene.Click
Dim ZipInput As String = "D:\Quelle"
Dim ZipPath As String = "D:\Ziel\"
Dim ZipName As String
ZipName = Date.Now.Year.ToString & "_" & Date.Now.Month.ToString_ & "_" & Date.Now.Day.ToString & "_" & "EigeneDateien.ZIP"
Dim ZipDateiname As String = ZipPath & ZipName
Try
ZipFile(ZipInput, ZipDateiname)
Catch ex As Exception
MsgBox("Es sind Fehler aufgetreten!")
End Try
End Sub
[/highlight]
'Code
eine Win-API auf, welche ausgewählte Dateien von "Quelle" nach "Ziel" komprimiert. Das funktioniert auch schon ganz gut.
Gibt es aber eine Möglichkeit das "komprmieren-Fenster" nicht als extra-Fenster, sondern innerhalb der Form anzuzeigen?
Hoffe ich habe mich soweit verständlich ausgedrückt.
Danke für Eure Mithilfe.
Comment