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