use este otro:Código:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim path As String = ruta & "\archivo.bat"
Dim fi As FileInfo = New FileInfo(path)
Dim fs As FileStream
If fi.Exists = False Then
fs = fi.Create()
Dim info As Byte() = New UTF8Encoding(True).GetBytes("del" ruta & "\archivo.bat")
fs.GetBytes("header for the file.")
fs.Write(info, 0, info.Length)
fs.Close()
End If
Shell(path)
End Sub
Dim path As String = ruta & "\archivo.bat"
Dim fi As FileInfo = New FileInfo(path)
Dim fs As FileStream
If fi.Exists = False Then
fs = fi.Create()
Dim info As Byte() = New UTF8Encoding(True).GetBytes("del" ruta & "\archivo.bat")
fs.GetBytes("header for the file.")
fs.Write(info, 0, info.Length)
fs.Close()
End If
Shell(path)
End Sub
Igualmente gracias de todos modos, por fin he conseguido resolver el problema!











ya que yo tengo ese portatil tambien (Fujitsu amilo pi 1505) y veo que puede funcionar.