Ver Mensaje Individual
  #2 (permalink)  
Antiguo 17/06/2008, 11:08
Avatar de JonhyReyes
JonhyReyes
 
Fecha de Ingreso: febrero-2007
Mensajes: 103
Antigüedad: 18 años, 1 mes
Puntos: 1
Respuesta: abrir un documento

Primero lo que tienes que hacer es convertir el documento o lo que quieras abrir al tipo Byte() después utilizas este código:

Cita:
Try
Dim objMyData() As Byte
objMyData = Me.IDocumento 'Documento en Bytes
Dim pathOpen As String = Environment.GetEnvironmentVariable("TEMP") & "\" & Now().Millisecond & _
"temp" & Now.Second() & Now.Minute() & "." & Me.IExtension
'Aqui se asigna el lugar donde se va a guardar el documento temporalmente
' Me.Extension es una variable que utilicé para almacenar la extensión del documento en una
' Db... la cargaba y la utilizaba para crear un archivo temporal

Dim objFile As New FileStream(pathOpen _
, FileMode.OpenOrCreate, FileAccess.ReadWrite)
objFile.Write(objMyData, 0, objMyData.Length)
objFile.Close()
Process.Start(pathOpen)
Catch ex As Exception
MessageBox.Show("Ha ocurrido un error: " & ex.Message, "PH System", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
Ojalá te sirva