Du bist nicht angemeldet.

[VB.NET] Zip-Datei ohne externe Tools entpacken.

Lieber Besucher, herzlich willkommen bei: Visual-Basic-Forum VB-Paradise.de. Falls dies dein erster Besuch auf dieser Seite ist, lies bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.

gs93

Super-Moderator

  • »gs93« ist männlich

Beiträge: 1 381

Dabei seit: 27. März 2009

Hilfreich-Bewertungen: 23

  • Private Nachricht senden

21

Donnerstag, 6. August 2009, 20:23

Er meint damit, dass man das Archiv dann nicht entpacken kann...
Eventuell sollte man das dazu schreiben.
bla

Battlestr1k3

Registrierter Benutzer

  • »Battlestr1k3« ist männlich

Beiträge: 65

Dabei seit: 4. Juli 2009

  • Private Nachricht senden

22

Samstag, 5. September 2009, 21:34

Genau was ich gesucht hab, vielen Dank für die super Unterstützung, läuft jetzt perfekt!

m0nst3rkill3r

Registrierter Benutzer

Beiträge: 844

Dabei seit: 10. Oktober 2009

Wohnort: k

Frühere Benutzernamen: m0nst3rkill3r

Hilfreich-Bewertungen: 270

  • Private Nachricht senden

23

Donnerstag, 22. Oktober 2009, 02:45

Istn Bissl spät, aber naja.
Bei mir erstellt er nur den Ordner und entpackt nicht.

Visual Basic Quellcode

 
1
2

                        Dim cu As New ClassUnzip("update.zip", Path.Combine(Path.GetDirectoryName("update.zip"), "Update"))
                        cu.UnzipNow()

Zitat von »"http://forums.macrumors.com/showpost.php?s=9e0078570b2b62fd044cc1b13d212b09&p=4777525&postcount=1064"«

When talking about how apple cannot influence the future of computers, you also forgot to mention that the internet was created on a network of macs to start with. Thats why every online PeeCee has a MAC code. Even my PSP needs a MAC code to get online....
~2000€ für nen brauchbaren Mac sind imho 2100€ zu viel. - SamusTyp

viperkill

Registrierter Benutzer

  • »viperkill« ist männlich

Beiträge: 406

Dabei seit: 10. August 2009

Wohnort: Papierkorb

Hilfreich-Bewertungen: 25

  • Private Nachricht senden

24

Montag, 26. Oktober 2009, 17:53

Ich bekomme eine Warnung :

Der in Imports "Shell32" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.
und 2 Fehler:

Der Typ "Shell32.IShellDispatch2" ist nicht definiert.


Der Typ "Shell32.Folder" ist nicht definiert.


Kann mir da wer helfen ?

freecoder

Registrierter Benutzer

  • »freecoder« ist männlich

Beiträge: 454

Dabei seit: 1. April 2009

Wohnort: Würzburg

Hilfreich-Bewertungen: 3

  • Private Nachricht senden

25

Montag, 26. Oktober 2009, 19:22

:rolleyes: :

Zitat

Für alle die schlecht im genau lesen sind hier die Verweise die hinzugefügt werden müssen als Fett-Schrift.

Für das Beispiel wird ein Verweis auf die Shell32.dll aus dem System32 Ordner benötigt.

viperkill

Registrierter Benutzer

  • »viperkill« ist männlich

Beiträge: 406

Dabei seit: 10. August 2009

Wohnort: Papierkorb

Hilfreich-Bewertungen: 25

  • Private Nachricht senden

26

Montag, 26. Oktober 2009, 21:03

:D danke es geht... *vorn kopf hau*

gibts dabei zufällignoch ne möglichkeit wie man den Dateinamen der grade entpackt wird (nicht den der zip file sondern der datei die da drin gepackt ist und jetz grade ausgepackt wird) in einem Label anzuzeigen ?

singu

Lib Dev

  • »singu« ist männlich

Beiträge: 5 889

Dabei seit: 6. Oktober 2008

Hilfreich-Bewertungen: 46

  • Private Nachricht senden

27

Montag, 26. Oktober 2009, 21:15

Zitat von »viperkill«

:D danke es geht... *vorn kopf hau*

gibts dabei zufällignoch ne möglichkeit wie man den Dateinamen der grade entpackt wird (nicht den der zip file sondern der datei die da drin gepackt ist und jetz grade ausgepackt wird) in einem Label anzuzeigen ?
Würd mich auch interessieren.
FTPLib 2.1.0.0 - Einfacher Zugriff auf FTP-Server ** TextEffectsLib - Schöne Effekte für TextBox und Label ** ExtendedListView

bruno1998

Registrierter Benutzer

  • »bruno1998« ist männlich

Beiträge: 78

Dabei seit: 16. Februar 2009

Wohnort: Regensburg

  • Private Nachricht senden

28

Mittwoch, 25. November 2009, 17:35

Mit System.IO.Compression ...

Visual Basic Quellcode

 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Public Sub compression()
'QuellDatei lesen
Dim QuellDatei As String = My.Computer.FileSystem.CurrentDirectory & "\informationen.txt"
Dim Stream As New IO.FileStream(QuellDatei, IO.FileMode.Open)
Dim FileBytes(Stream.Length - 1) As Byte Stream.Read(FileBytes, 0, FileBytes.Length)
Stream.Close() 'Neue komprimierte Datei erstellen
Dim ZielDatei As String = My.Computer.FileSystem.CurrentDirectory & "\informationen.zip"
Dim StreamWrite As New IO.FileStream(ZielDatei, IO.FileMode.Create)
Dim CompressStream As New IO.Compression.GZipStream(StreamWrite, IO.Compression.CompressionMode.Compress)
CompressStream.Write(FileBytes, 0, FileBytes.Length)
CompressStream.Flush()
CompressStream.Close()StreamWrite.Close()
'Dekomprimieren
Stream = New IO.FileStream(ZielDatei, IO.FileMode.Open)
Dim DecompressStream As New IO.Compression.GZipStream(Stream, IO.Compression.CompressionMode.Decompress)
Dim Reader As New IO.StreamReader(CType(DecompressStream, IO.Stream))
My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.CurrentDirectory & "\dekomprimierte.txt", Reader.ReadToEnd(), False)
Reader.Close()
Stream.Close()
End Sub


Der Beitrag ist zwar von 2005 und ich habe es noch nicht getestet, aber müsste hinhauen. :D
Quelle

Edit/: Entschuldige nickxx, habe deinen Beitrag nicht gesehen ^^
:thumbup: :thumbup: Immer schön cool bleiben! :thumbup: :thumbup:


Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »bruno1998« (28. November 2009, 09:35)

gs93

Super-Moderator

  • »gs93« ist männlich

Beiträge: 1 381

Dabei seit: 27. März 2009

Hilfreich-Bewertungen: 23

  • Private Nachricht senden

29

Mittwoch, 25. November 2009, 19:39

Zitat von »bruno1998«

Der Beitrag ist zwar von 2005 und ich habe es noch nicht getestet, aber müsste hinhauen. :D
Wie oft denn noch? VB 2005/08/10 ist nur die IDE. VB.net ist die Programmiersprache.
bla

bruno1998

Registrierter Benutzer

  • »bruno1998« ist männlich

Beiträge: 78

Dabei seit: 16. Februar 2009

Wohnort: Regensburg

  • Private Nachricht senden

30

Mittwoch, 25. November 2009, 21:12

Zitat von »gs93«

Zitat von »bruno1998«

Der Beitrag ist zwar von 2005 und ich habe es noch nicht getestet, aber müsste hinhauen. :D
Wie oft denn noch? VB 2005/08/10 ist nur die IDE. VB.net ist die Programmiersprache.

Habe ich gesagt

Zitat

Der Beitrag ist zwar von 2005, also weiß ich nicht, ob es auch mit VB 2008 klappt.

oder

Zitat

Der Beitrag ist zwar von 2005 und ich habe es noch nicht getestet, aber müsste hinhauen

?

Ich wollte damit nur ausdrücken, dass es sich um einen etwas älteren Beitrag handelt.

bruno1998
:thumbup: :thumbup: Immer schön cool bleiben! :thumbup: :thumbup:


hl2mukkel

unregistriert

31

Montag, 1. Februar 2010, 23:03

wow :D diese Klasse ist echt klasse ;) lol
gebe es auch eine möglichkeit auf die events zu verzichten und nach: cu.UnzipNow() einfach zu warten :o?
zB
msgbox("starting zip")
cu.UnzipNow()
msgbox("end zip")

Gruesse

Zalkortis

unregistriert

32

Dienstag, 16. Februar 2010, 23:10

Zitat von »viperkill«

Ich bekomme eine Warnung :

Der in Imports "Shell32" angegebene Namespace oder Typ enthält keine öffentlichen Member oder kann nicht gefunden werden. Stellen Sie sicher, dass der Namespace oder der Typ definiert ist und mindestens einen öffentlichen Member enthält und dass der importierte Elementname keine weiteren Aliase enthält.
und 2 Fehler:

Der Typ "Shell32.IShellDispatch2" ist nicht definiert.


Der Typ "Shell32.Folder" ist nicht definiert.


Kann mir da wer helfen ?
Hallo Viperkill,

die Antwort kommt vielleicht etwas spät, aber vielleicht hilft sie anderen. Habe mich gerade erst hier registriert.

Diesen Fehler kannst Du sehr einfach beheben, in dem Du den Verweis "Microsoft
Shell Controls and Automations" hinzufügst. Dort ist der Namespace Shell32 enthalten. Vorgehensweise in VB2008:
  • Menü Projekt/Verweis hinzufügen...
  • Es öffnet sich ein Dialogfenster.
  • Dort in den Reiter "COM" und oben genannte Controls auswählen und mit OK bestätigen.
Schon ist der Fehler verschwunden und der Code lässt sich einwandfrei kompilieren.

Zum Abschluss noch ein Dank an den Author dieser wunderbaren UnzipClass. :)


Viele Grüße
Zalkortis

layc

Registrierter Benutzer

  • »layc« ist männlich

Beiträge: 14

Dabei seit: 17. Dezember 2009

Wohnort: Witterda

Hilfreich-Bewertungen: 1

  • Private Nachricht senden

33

Mittwoch, 17. Februar 2010, 15:34

^^ Naja ich denke du bekommst das schon hin ^^

manni1238

unregistriert

34

Freitag, 26. Februar 2010, 14:23

hallo,
ich benutze nur diesen Teil des Codes:

Quellcode

 
1
2
3
4

Dim file As String = "C:\Program Files\testzip.zip"
    	Dim cu As New ClassUnzip(file, Path.Combine(Path.GetDirectoryName(file), "C:\test_unzip_folder"))
    	AddHandler cu.UnzipFinishd, AddressOf Unziped
    	cu.UnzipNow()


und ich bekomme den Fehler:
"der name Unziped wurde nicht deklariert"

was läuft da schief???
(habe den verweis auf die shell32.dll erstellt und die entsprechende Klasse eingefügt)

FlashTek

Super-Moderator

  • »FlashTek« ist männlich

Beiträge: 632

Dabei seit: 19. Februar 2009

Frühere Benutzernamen: Flashloght95

Hilfreich-Bewertungen: 82

  • Private Nachricht senden

35

Freitag, 26. Februar 2010, 16:24

sieht so aus, als gäbe es in deinem Code die Sub Unziped nicht
Besuche DevPoint auf Facebook! Grid7 für Windows Phone 7 Grid8 für Windows 8 mFTP für Windows 8

manni1238

unregistriert

36

Samstag, 27. Februar 2010, 12:45

oh nee nichma abschreiben kann ich xD
dankeschön^^

solar22

Registrierter Benutzer

Beiträge: 104

Dabei seit: 13. Oktober 2007

  • Private Nachricht senden

37

Donnerstag, 17. Juni 2010, 18:56

Ich hab das Problem, dass das Script zwar den Ordner erstellt, aber nicht entpackt?
Shell32 ist dran, ja.

Mein Aufruf:

Visual Basic Quellcode

 
1
2
3

        Dim cu As New ClassUnzip("Latest.zip", Path.Combine(Path.GetDirectoryName("Latest.zip"), Application.StartupPath))
            AddHandler cu.UnzipFinishd, AddressOf Unziped
            cu.UnzipNow()
Gruß,
solar22

Meine Projekte:
Moon!ight
solardorf - willkommen zu hause
Shopverwaltung (not public, im pack mit Shop Plugin für Moon!ight)

xWare Development

unregistriert

38

Sonntag, 11. Juli 2010, 12:50

Und mal wieder total geil von dir. Deine Tutorials bieten hohen Lerneffekt, super von dir!

Florian

Tekker Deluxe ♥

  • »Florian« ist männlich

Beiträge: 158

Dabei seit: 14. Januar 2010

Wohnort: Lübeck

Frühere Benutzernamen: r3mote

Hilfreich-Bewertungen: 52

  • Private Nachricht senden

39

Mittwoch, 14. Juli 2010, 15:05

Jetzt mal ´ne Frage:

Wie kann ich prüfen ob das Zip-File entpackt ist sodass ich weiterarbeiten kann mit einer anderen Funktion?

EDIT:

Hab schon ;)
Hatte nicht darauf geachtet dass der Public Sub Unzipped ja dazu dient das ganze weiterzuführen ;)

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Florian« (14. Juli 2010, 15:13) aus folgendem Grund: Gelöst

Bread

ALT + F4

  • »Bread« ist männlich

Beiträge: 34

Dabei seit: 16. Juli 2010

Frühere Benutzernamen: croomeWare.de; Bread

Hilfreich-Bewertungen: 1

  • Private Nachricht senden

40

Freitag, 16. Juli 2010, 13:26

Funktioniert wunderbar, dankeschön! Gibt es auch eine Möglichkeit mit Visual Basic Dateien zu packen?

Hat sich geklärt, Google hilft!
Die Welt wird nicht bedroht von den Menschen, die böse sind, sondern von denen, die das Böse zulassen.


Albert Einstein (1879 - 1955)

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »Bread« (16. Juli 2010, 18:42)

Ähnliche Themen

Social Bookmarks