Mit eigener setup datei archive entpacken

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von QB2VB.

    Mit eigener setup datei archive entpacken

    ein herzerfrischendes moin moin :D
    ich habe soziemlich alles nachprogrammiert was man bei youtube unter "vb tutorial" so findet...von "hallo welt" bis zu einem remote control tool, aber das ganze "wissen" hilft mir hier grade nicht weiter.

    ich würde gerne eine setup datei schreiben...sie soll so funktionieren:
    ich habe dateien in 6 archive gepackt (*.rar). jetzt will ich eine setup datei erstellen und die mit den 6 archiven + autorun datei(wie man die schreibt weiß ich) auf 2 dvd's brennen.
    - dvd1: autorun.inf, setup.exe, 1.rar, 2.rar, 3.rar
    - dvd2: autorun.inf, 4.rar, 5.rar, 6.rar (die setup.exe sollte wenn dvd1 entnommen wird trotzdem weiter laufen und nach dvd2 fragen)

    die setup datei wird automatisch beim einlegen der dvd1 gestartet (durch autorun). nun soll sie die ersten drei archive von dvd1 entpacken und dann nach dvd2 fragen, wenn man ok klick soll sie die anderen drei von der dvd2 entpacken. und zwar soll der pfad zuerst mit einem open/save- filedialog abgefragt werden.
    von mir gewünschte zusatzfunktionen:
    - eine progressbar die den fortschritt anzeigt
    - eine textbox die untereinander die sachen aufzählt die entpackt werden.

    so leute... jetzt seit ihr dran, trommelt mal ein paar codes mit kleiner erklärung in eure tastaturen...BITTE! :thumbsup:
    ich bin fest davon überzeugt, dass es hier welche gibt die mir weiter helfen können.

    mfg
    VplusSpinat

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „VplusSpinat“ ()

    Hi,
    Also:
    Wie du weißt (hoffe ich doch :thumbsup: ) ist C&P-Code hier eher Unerwünscht.
    1.Für das Entpacken (glaube nur für .zip gibt es hier was im Forum (SuFu benutzen)
    2.Kopiere doch deine Setup.exe in ein temporeren Ordner und starte diese dann.
    3.Zum Brennen brauchst du z.B.: die Nero.dll (Googlen)
    4 und 5tens (Pogressbar und Richtextbox) das ist nicht sooo schwer, such mal hier im Forum

    Ich hoffe du kannst was mit anfangen.
    Wenn du wirklich nichtmehr weiterkommst, kannst ja nochmal fragen :thumbup:

    Edit:
    Hier ein Link für das Entpacken von Zip-Archiven: Hier

    so...die antwort kam schnell...danke an der stelle :)

    1. mit "c&p-code" meinst du sicher das hier keiner codes posten darf denk ich mal.
    2. ob zip oder rar ist doch würstchien oder?? anstatt als rar einfach als zip packen.
    3. mit den restlichen vorschlägen (möchte sie jetzt nicht schlecht machen) kann ich echt garnichts anfangen. ?(

    1. mit "c&p-code" meinst du sicher das hier keiner codes posten darf denk ich mal.

    Nein, sondern das es hier nicht gern gesehen wird (nichts für Ungut :thumbup: ) wenn man nach "C&P"-Code (Copy&Past) gefragt wird (will heißen , das man nicht einfach nach code fragt ohne sich anzuschtrengen und selbst was zu machen) (ausnahme ist der Marktplatz).
    Soll heißen, das du dich erstmal mit dem Thema beschäftigst und es selbst versuchst.
    Wenn du nicht weiterkommst , dann kanst du hier nach Hilfe für dein Problem fragen.
    Und "SuFu" heißt die Forensuche ;)
    für das kopieren kannst du z.B.:

    VB.NET-Quellcode

    1. Io.file.copy("Pfad zur Setup.exe","Pfad zum Ordner in den die .exe kopiert werden soll")
    nehmen. (dies soll nur zeigen, wie es geht (bitte nicht z.B.: "D:\" als Pfad für das DVD-Laufwerk benutzen (da nicht jeder "D:\" als Pfad für das DVD-Laufwerk besitzt) :D

    Edit:
    Zum Kopieren: Gucke dir Das mal an

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „QB2VB“ ()

    danke für den code...der bringt mich auf eine idee;)

    aber den code zum entpacken bräuchte ich immernoch, weil da habe ich echt kein plan gerade.
    habe mir auch schon viel im internet durchgelesen, aber finde nicht so wirklich das was ich suche.

    hoffe hier kann einer diesen einen code posten(MIT ERKLÄRUNG BITTE! möchte gerne wissen was die einzelnen abschnitte/zeilen bewirken, damit ich mir auch mal aus diesen code was zusammenreiben kann.).

    habe im internet gefunden wie man dateien aus dem ressourcen "entpackt", aber das hilft mir ja nicht viel.

    Hi Ok ich versuche es :thumbsup:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Shell32
    2. Imports System
    3. Imports System.IO
    5. Public Class ClassUnzip
    7. Private _file As String
    8. Private _folder As String
    9. Private _towhere As String
    11. Private _shell As Shell32.IShellDispatch2
    13. ''' <summary>Event welches vor dem Entpacken (Unzip) ausgeführt wird.</summary>
    14. ''' <remarks></remarks>
    15. Public Event Unzipstart()
    16. ''' <summary>Event welches nach dem Entpacken (Unzip) ausgeführt wird.</summary>
    17. ''' <remarks></remarks>
    18. Public Event UnzipFinishd()
    20. ''' <summary>Neue Instanz der ClassUnzip Klasse.</summary>
    21. ''' <param name="file">Datei welche entpackt werden soll.</param>
    22. ''' <param name="towhere">Zielordner.</param>
    23. ''' <remarks></remarks>
    24. Public Sub New(ByVal file As String, ByVal towhere As String)
    25. _file = file
    26. _towhere = towhere
    27. _folder = Path.Combine(Path.GetDirectoryName(_file), _towhere)
    28. _shell = CreateObject("Shell.Application")
    29. End Sub
    31. ''' <summary>Das Entpacken (Unzip) wird ausgeführt.</summary>
    32. ''' <returns></returns>
    33. ''' <remarks></remarks>
    34. Public Function UnzipNow() As Boolean
    35. 'prüfen ob der ordner existiert
    36. If Directory.Exists(_folder) = False Then
    37. Directory.CreateDirectory(_folder)
    38. End If
    39. 'event für start feuern
    40. RaiseEvent Unzipstart()
    41. 'entpacken
    42. Dim temp As Shell32.Folder = _shell.NameSpace((_folder))
    43. If temp IsNot Nothing Then
    44. temp.CopyHere(_shell.NameSpace((_file)).Items)
    45. End If
    46. 'event für ende feuern
    47. RaiseEvent UnzipFinishd()
    48. 'rückgabe wert setzen
    49. Return True
    50. End Function
    52. ''' <summary>Gibt den Namen der gepackten Datei zurück, oder setzt diesen.</summary>
    53. ''' <value></value>
    54. ''' <returns></returns>
    55. ''' <remarks></remarks>
    56. Public Property UnZipFile() As String
    57. Get
    58. Return _file
    59. End Get
    60. Set(ByVal value As String)
    61. _file = value
    62. End Set
    63. End Property
    65. ''' <summary>Gibt den Zielort (entpacken) zurück, oder setzt diesen.</summary>
    66. ''' <value></value>
    67. ''' <returns></returns>
    68. ''' <remarks></remarks>
    69. Public Property UnzipTo() As String
    70. Get
    71. Return _towhere
    72. End Get
    73. Set(ByVal value As String)
    74. _towhere = value
    75. End Set
    76. End Property
    77. End Class

    Es wird ein Verweis auf die Shell32.dll aus dem System32 Ordner benötigt.
    Und du musst diesen Code Über/unter den code der Class Form1 schreiben (was hoffentlich klar ist)

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO '<-- Import von IO (damit man nicht immer IO. ... schreiben muss)
    4. Public Class Form1
    6. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    7. Using ofd As New OpenFileDialog <-- Deklinieren des neuen OpenFileDialogs
    8. ofd.Filter = "ZipFile|*.zip" <-- Filter , damit man nur .zip Dateien auswählen kann
    9. If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then ' <-- abfrage ob im OpenfileDialog der Button "OK" gedrückt wurde
    10. Dim file As String = ofd.FileName '<-- file ist der Dateiname des .Zip-Archives
    11. Dim cu As New ClassUnzip(file, Path.Combine(Path.GetDirectoryName(file), "test_unzip_folder")) '<-- wieder file (s.o.) ; "test_unzip_folder" ist der name des Ordners, in dem die entpackten Dateien liegen (wenn das ausgewählte zip-Archiv auf der C:\-Festplatte lag , dann sieht der Pfad so aus ("C:\test_unzip_folder\"Der Name des .Zip-Archives"").
    12. AddHandler cu.UnzipFinishd, AddressOf Unziped
    13. cu.UnzipNow() '<-- Start des Entpackens
    14. End If
    15. End Using
    16. End Sub
    18. Private Sub Unziped()
    19. MessageBox.Show("Unzipping finished") '<-- wird angezeigt , wenn das Archiv entpackt wurde
    20. End Sub
    22. End Class



    So wie gesagt, der Code kommt von Hier.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „QB2VB“ ()

    ok habe mir mal was überlegt ;)

    wollte es so machen das es 2 exen gibt, die 1. kopiert die 2. auf den pc in den ordner in dem dan auch die archive entpackt werden und startet die 2..
    die 2. exe ist dann die eigendliche setup datei :D

    habe jetzt folgende sachen erstmal in die 1. exe geschrieben:
    Try
    Directory.CreateDirectory(Application.StartupPath & "\Entpackte dateien\") '<-ich weiß das ich das anders machen muss wenn es auf eine dvd kommt ;)
    IO.File.Copy(System.Windows.Forms.Application.StartupPath & "\Setup2.exe", Application.StartupPath & "\Entpackte dateien\")
    Catch ex As Exception : End Try

    die exe erstellt zwar einen ordner, aber kopiert die exe 2 nicht??? die exe 2 liegt auch im gleichen ordner wie exe 1 ...was ist falsch oder was fehlt in dem code noch?

    GELÖST!:
    Try
    Directory.CreateDirectory(Application.StartupPath & "\Entpackte dateien\")
    Catch ex As Exception : End Try
    IO.File.Copy(System.Windows.Forms.Application.StartupPath & "\Setup2.exe", Application.StartupPath & "\Entpackte dateien\Setup2.exe")
    Process.Start(Application.StartupPath & "\Entpackte dateien\Setup2.exe")
    Close()

    jut das war das...jz soll die 2. exe archive erstmal entpacken können, da hab ich aber echt keine idee wie das gehen soll????? 8|

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VplusSpinat“ ()

Facebook
Telefonspende