View Full Version : Will not show files in folder, i get a BLANK page.

02-03-2012, 02:41 PM

Im trying to learn how to upload files to an folder, and then show the files from the folder, I can easy upload files to the folder in VS2010 (on the pc) and on the server (Unoeuro) but when i will see the files in the folder, the page load but i get a Blank page, on my pc and on the server, so its the same (error)

Main page


<%@ Page Language="VB" AutoEventWireup="false" CodeFile="show_file.aspx.vb" Inherits="show_file" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<form id="form1" runat="server">
<asp:label runat="server" id="lblMessage" Font-Italic="True" ForeColor="Red" />
<asp:DataGrid runat="server" id="articleList" Font-Name="Verdana"
AutoGenerateColumns="False" AlternatingItemStyle-BackColor="#eeeeee"
HeaderStyle-BackColor="Navy" HeaderStyle-ForeColor="White"
HeaderStyle-Font-Size="15pt" HeaderStyle-Font-Bold="True"
<asp:ButtonColumn Text="Delete" ButtonType="PushButton"
CommandName="Delete" />
<asp:HyperLinkColumn DataNavigateUrlField="Name"
DataTextField="Name" HeaderText="File Name" />
<asp:BoundColumn DataField="LastWriteTime"
HeaderText="Last Write Time"
DataFormatString="{0:d}" />
<asp:BoundColumn DataField="Length" HeaderText="File Size"
DataFormatString="{0:#,### bytes}" />


Imports System.IO

Partial Class show_file
Inherits System.Web.UI.Page

Sub Page_Load(sender As Object, e As EventArgs)
If Not Page.IsPostBack Then
Dim dirInfo As New DirectoryInfo(Server.MapPath("~/Upload/"))

articleList.DataSource = dirInfo.GetFiles("*.*")
End If
End Sub

Sub articleList_ItemDataBound(sender As Object, e As DataGridItemEventArgs)
' First, make sure we're NOT dealing with a Header or Footer row
If e.Item.ItemType <> ListItemType.Header And _
e.Item.ItemType <> ListItemType.Footer Then
'Now, reference the Button control that the Delete ButtonColumn
'has been rendered to
Dim deleteButton As Button = e.Item.Cells(0).Controls(0)

'We can now add the onclick event handler
deleteButton.Attributes("onclick") = "javascript:return " & _
"confirm('Are you sure you want to delete the file " & _
DataBinder.Eval(e.Item.DataItem, "Name") & "?')"
End If
End Sub

Sub articleList_DeleteFile(sender As Object, e As DataGridCommandEventArgs)
'First, get the filename to delete
Dim fileName As String = articleList.DataKeys(e.Item.ItemIndex)

lblMessage.Text = "You opted to delete the file " & _
fileName & ".<br />" & _
"This file could be deleted by calling: " & _

'You would want to rebind the Directory's files to the DataGrid after
'deleting the file...
End Sub
End Class

Can someone help me !?