
17/06/2008, 11:08
|
 | | | 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 |