Ciao a tutti come da titolo sto cercando di creare un esecutore di archivio zip, però quando tento il debug dell' .exe mi dà errore di compilazione, ho sbagliato qualcosa ? Inoltre vorrei sapere se c'è un modo per estrarre l' archivio in una cartella. Grazie mille in anticipo.
codice:Imports System.IO Imports System.Reflection Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RunInternalExe("ApplicazioneInterna.exe") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Ottieni l'assembly Dim assembly__1 As Assembly = Assembly.GetExecutingAssembly() 'Ottieni il nome della cartella dov'è contenuto l'exe Dim rootName As String = assembly__1.GetName().Name 'Ottieni la Resource Stream Dim resourceStream As Stream = assembly__1.GetManifestResourceStream(rootName + "." + exeName) 'Verifica se il file interno esiste If resourceStream Is Nothing Then Return End If 'Leggi i bytes piani del file Dim resourcesBuffer As Byte() = New Byte(resourceStream.Length - 1) {} resourceStream.Read(resourcesBuffer, 0, resourcesBuffer.Length) resourceStream.Close() 'Carica i bytes come un'assembly Dim exeAssembly As Assembly = Assembly.Load(resourcesBuffer) End Sub End Class

Rispondi quotando