VB6 Abrir tipos de fichero DOC, RTF

[MeXiCaN]

Wenas de nuevo:

Mi duda es clara y concisa, ¿como abro fichero del tipo DOC, RTF, e incluso PDF? ¿Se pueden leer igual que los TXT? y aún más. ¿Se puede volver a guardar en su formato original, DOC, RTF, PDF?

Muuuuuuuuuuuuuuuuchas Gracias

[Hager]

para abrir archivos usa el siguiente metodo, este te retorna todo el contenido de texto del archivo

Function Abrir_file(file As String) As String
Dim FSO, textStreamObject
Set FSO = CreateObject("Scripting.FileSystemObject")
Set textStreamObject = FSO.OpenTextFile(file, 1, True, 0)
Do While textStreamObject.AtEndOfLine <> True
Abrir_file = Abrir_file & textStreamObject.Read(1)
Loop
textStreamObject.Close
Set textStreamObject = Nothing
Set FSO = Nothing

End Function

para abrir pdf, necesitas otro tipo de procedimiento ya que el pdf es una imagen, la verdad no tengo un api para eso pero tu mision si decides aceptarla es encontrarlo!! jeje

[MeXiCaN]

Rebuenas Hager:

Te importaría comentarme un poco el código. ¿Como sería el guardar en su formato original? Bye.

[GAW]

Hola, Como Estan. Soy Nuevo En Este Foro Y Adecir Verdad Es La Primera Vez Que Participo En Uno Pero Tu Codigo Me Resulto Interesante Pero Mi Pregunta Es ¿donde Lo Pongo? Y Como Lo Direcciono A Un Textbox O Que Control Uso. Y De Camino Como Ago Para Darle Alineacion Diferente A Cada Linea Como Para Hacer Mi Propio Editor De Textos.

Gracias Por Tu Pronta Respuesta, Y Si Estoy Haciendo Uso Indevido Del Foro Favor De Avisarme E Indicarme La Forma Correcta.