[VB.Net] Come si "traduce" la funzione Shell di VB6 in VB.net?

[andreaciao_22]

salve a tutti,

Eccomi di nuovo qui per porvi un quesito per me molto complicato ma che, a mio parere, per voi sarà abbastanza banale:

dovrei eseguire da VB.Net le seguenti istruzione:

"regsvr32 /u /s " & Chr(34) & FileAddIn & Chr(34)
"regsvr32 /s " & Chr(34) & FileAddIn & Chr(34)

in vb6 c'era la funzione Shell... in vb.net?

sò che in vb.net tale funzione esiste, ma sò anche che è stata mantenuta solo per la compatibilità con vb6...

grazie in anticipo

Andrea

[MItaly]

Process.Start("quellochevuoi.exe")

[andreaciao_22]

ciao MItaly,

ma, secondo te, come potrei eseguire i due comandi che ho esposto nel post iniziale?

basterebbe fare:

Process.Start("regsvr32.exe /u /s " & Chr(34) & FileAddIn & Chr(34))

???

grazie

[MItaly]

Certo.
Tra parentesi, non è necessario usare Chr(34) per inserire le virgolette, basta inserire due virgolette al posto di una:

Process.Start("regsvr32.exe /u /s """ & FileAddIn & """")

.

[andreaciao_22]

non funzione...

mi dà errore:

Impossibile trovare il file specificato...

questa è la sub:

    Sub RegistraFile(ByVal NomeFile As String, Optional ByVal Disinstalla As Boolean = False, Optional ByVal Silenzioso As Boolean = False)
        Dim Comando As String
        Comando = "regsvr32.exe "
        If Disinstalla = True Then
            Comando &= "/u "
        End If
        If Silenzioso = True Then
            Comando &= "/s "
        End If
        Comando &= """" & NomeFile & """"
        Process.Start(Comando)
    End Sub

ho provato a controllare se la path che gli passavo era sbagliata, ma è giusta...

[andreaciao_22]

risolto in questo modo:

    Function RegistraFile(ByVal NomeFile As String, Optional ByVal Disinstalla As Boolean = False, Optional ByVal Silenzioso As Boolean = False) As Boolean
        Dim Argomenti As String
        Argomenti = String.Empty
        If Disinstalla = True Then
            Argomenti &= "/u "
        End If
        If Silenzioso = True Then
            Argomenti &= "/s "
        End If
        Argomenti &= """" & NomeFile & """"
        Return EseguiProgramma("regsvr32.exe", Environment.SystemDirectory, Argomenti)
    End Function
    Function EseguiProgramma(ByVal Programma As String, ByVal Path As String, ByVal Argomenti As String) As Boolean
        Dim Proc As New Process
        Proc.StartInfo.FileName = Programma
        Proc.StartInfo.WorkingDirectory = Path
        Proc.StartInfo.Arguments = Argomenti
        Try
            Proc.Start()
            Proc.WaitForExit()
            Proc.Close()
            Return True
        Catch ex As Exception
            MessageBox.Show(ex.Message, "ADD-IN UPTADE!", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Return False
        Finally
            Proc = Nothing
        End Try
    End Function

se avete un modo più semplice, sono sempre aperto a nuove prospettive...