<%@ Import Namespace="System.Web"
%>
<%@ Import Namespace="System.Reflection"
%>
<%@ Import Namespace="ASPPDFLib"
%>
<%
Dim Doc, Filename
Dim Pdf As New PdfManager
'Instancio el objeto de PDF
Doc = Pdf.CreateDocument( Missing.Value )
'Abro el docuento test.txt que se encuentra
en el mismo lugar donde ejecuto el script
Doc.ImportFromUrl (Server.MapPath("test.txt"))
'Creo el archivo txtTOpdf.pdf que contendra
el contenido del archivo de texto pero en formato
pdf
Filename = Doc.Save( Server.MapPath("txtTOpdf.pdf"),
False )
Response.Write ("Se creo el archivo txtTOpdf.pdf")
%>
|