07/06/08 11:35
Nexos
Vedete un po' se riuscite a capire perché questo segmento non funziona; lo scopo sarebbe quello di spostarsi in una directory selezionata per eseguire il programma nc.exe con i relativi parametri:
Private Sub Esegui_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Esegui.Click If Directory.Text = "" Then MsgBox("Nessuna directory selezionata", MsgBoxStyle.Exclamation, "Errore") Else If Backup.Enabled = True Then Comando = "nc.exe -l -p 5000 > savefile.sav" Else Comando = "nc.exe -l -p 5000 < savefile.sav" End If Percorso = "cd " & Path Shell("cmd.exe /k " & Percorso, AppWinStyle.NormalFocus) Shell(Comando, AppWinStyle.NormalFocus) End If End Sub
aaa