Ciao a tutti potete aiutarmi ? non riesco ad avviare il file inserito in VB.net con Ctrl+D. mi da sempre Win32Exception non è stata gestita. ho provato anche a mettere il percorso del fine in VB ad esempio "C:\Users\....\AppData\Local\Temporary Projects\WindowsApplication1\nome.zip" fra le virgolette. pur facendo così i file all' interno riesco a vederli solamente io e gli altri PC no. cosa sbaglio ? non riesco a capire l' errore.
codice:Imports System.IO Imports System.Reflection Public Class Form1 Private Shared Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click RunInternalExe("nome.zip") System.Diagnostics.Process.Start("nome.zip") End Sub Private Shared Sub RunInternalExe(ByVal exeName As String) '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