EJECUTAR ARCHIVO

Public Function ejecutar(ByVal filePath As String) As String
        Dim ret
        ret = Shell("rundll32.exe url.dll,FileProtocolHandler " & (filePath))
        Return ret
End Function


'Ejecutar archivo con parametros
Public Function ejecutar()

  Dim Linea As String = " /command " & Chr(34) & "option batch on" & Chr(34) & " " & Chr(34) & "option confirm off" & Chr(34) & " " & Chr(34) & "reconnecttime 10" & Chr(34) & " " & Chr(34) & "open ftp://user:passw@ftp.dirftp.com" & Chr(34) & " " & Chr(34) & "synchronize both C:\imagenes /imagenes" & Chr(34)
            Dim exe As New Process
            exe.StartInfo = New ProcessStartInfo("winscp.exe", Linea)
            exe.Start()

End Function