Visor de documentos para ASP.NET

Publicado por en mar 23, 2014 en Programación | 0 comentarios

Visor de documentos para ASP.NET

Empecemos con algo de programación, me he dado cuenta que cuando busco alguna ayuda en algún post en Internet  a veces  la explicación no es clara y quedamos con muchas dudas. En los post de programación trataré de   explicarlo de forma sencilla, esperando que su programa corra a la primera, bueno comencemos ! :)

Para empezar yo utilizó Visual Studio 2010,  pero pueden utilizar desde la versión 2005 dado que el código de este post correrá en los frameworks 2.0,2.5,3.0,3.5 y 4.0.

Objetivo del programa:  Tener una  o varias carpetas en nuestro proyecto con documentos que podrían ser PDF,DOC,XLS,JPG ,etc… (en resumen una biblioteca de medios). Esos documentos presentarlos como ligas  en un listado dentro de una  página de Internet. ¿En que nos ayuda esto? bueno si nosotro constantemente tenemos que subir archivos y presentarlos en  Internet en lugar de generar Link por Link solo los pegamos en la carpeta y  los va ha presentar de forma automatica, esa una opción ustedes pueden encontrar mas usos, espero los comenten :)

1.  Generamos un proyecto

2. Generamos un formulario.

3. En el Codebehind (archivoo .vb)  dentro del  evento Load de la página escribimos el siguiente código:direccion_01

4. Ponemos algunos archivos para visualizar.

5. El ASPX, no escribimos nada ( si requieren algun diseño  o un ménu o algo en especial lo pueden hacer)

6. Generamos una carpeta donde contendrá todo los archivos a visualizar, en mi caso se llamará:

If Not IsPostBack Then

Dim di As DirectoryInfo = New DirectoryInfo(“C:\visor_archivo\visor_archivo\direccion_01″)

Dim rgFiles As FileInfo() = di.GetFiles(“*.*”)
For Each fi As FileInfo In rgFiles
Response.Write(“<br><a href=direccion_01/” + fi.Name + “>” + fi.Name + “</a>”)
Next

End If

7. No olviden poner los imports necesarios, los cuales serian:

Imports System
Imports System.Data
Imports System.Configuration
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls
Imports System.IO

Nuestro Código quedaría de la siguiente manera:

Explicaremos ahora el código:

—- La utilizamos para que solo lo haga la primera vez que cargamos la página:
If Not IsPostBack Then

—- Indicamos donde se encuentra el archivo fisicamente, ya en el servidor tendria que ser en el inetpub
Dim di As DirectoryInfo = New DirectoryInfo(“C:\visor_archivo\visor_archivo\direccion_01″)

—- Indicamos que archivos vamos a visualizar en este caso son todos, si nada mas queremos ver los pdf sería: *.pdf

Dim rgFiles As FileInfo() = di.GetFiles(“*.*”)

—- Por cada archivo encontrado va ha escribir un link, si se fijan indicamos la  ruta pero dentro del proyecto

For Each fi As FileInfo In rgFiles
Response.Write(“<br><a href=direccion_01/” + fi.Name + “>” + fi.Name + “</a>”)
Next

– Cerramos  el If del not ispostback

End If

Al ejecutarlo nos saldría lo siguiente:

Si le damos click abrirá los archivos, así solo tenemos que pegar archivos en la carpeta y losvisualizará de forma automatica.

 

Bueno eso sería todo, espero  les haya ayudado y no olviden comentar

JOSHUA :)

Deja un comentario