Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Brauche bitte noch mal Hilfe bei sevZip
Autor: chacky
Datum: 19.09.02 20:53
Hallo Dieter, Danke für die schnelle Anwort. Vieleicht magst du mir noch mal helfen. Ich möchte mehrere Dateien zum zip Archiv hinzufügen. Die Dateien lese ich mit der VBEX_FileList aus dem Ordner. Das glaubt auch so weit denn in der listbox werden Sie angezeigt. Aber wie bekomme ich es hin das alle diese dateien gezippt werden. Ich hatte es so probiert: sevZIP_SetLanguage 1 sevZIP_SetCompressionRate 6 Dim sSourceFile As String Dim nCount As Long Dim sFiles() As String Dim sPath As String Dim nBytes As Currency Dim i As Long Dim sZipFile As String Dim nResult As Long sPath = "c:Programmeilder\" nCount = VBEX_FileCount(sPath, 1, "*.jpg", nBytes) If nCount >= 0 Then ReDim sFiles(nCount) nCount = VBEX_FileList(sPath, 1, "*.jpg", sFiles(), nBytes) For i = 0 To nCount sSourceFile = sPath & sFiles(i) sZipFile = App.Path & "myFile.zip" nResult = sevZIP_ZipAddFile(sZipFile, sSourceFile, _ nOverwrite, txtstatus.hWnd) Next i End If So verschwinden die Dateien allerdings im Großen Universum anstatt im Zip Archiv Danke im Voraus Rüdiger

Brauche bitte noch mal Hilfe bei sevZip	73	chacky	19.09.02 20:53
Re: Brauche bitte noch mal Hilfe bei sevZip	264	Dieter	19.09.02 21:03
Re: Brauche bitte noch mal Hilfe bei sevZip	42	chacky	19.09.02 21:46
Re: Brauche bitte noch mal Hilfe bei sevZip	229	Dieter	19.09.02 22:09
Re: Brauche bitte noch mal Hilfe bei sevZip	33	chacky	20.09.02 09:06
Re: Brauche bitte noch mal Hilfe bei sevZip	230	Dieter	20.09.02 10:17

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen