...

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



siraero
02-03-2012, 01:41 PM
Hi

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)

Code
Main page


Code:


<%@ 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">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<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"
DataKeyField="FullName"
OnItemDataBound="articleList_ItemDataBound"
OnDeleteCommand="articleList_DeleteFile">
<Columns>
<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"
ItemStyle-HorizontalAlign="Center"
DataFormatString="{0:d}" />
<asp:BoundColumn DataField="Length" HeaderText="File Size"
ItemStyle-HorizontalAlign="Right"
DataFormatString="{0:#,### bytes}" />
</Columns>
</asp:DataGrid>
</div>
</form>
</body>
</html>


CodeBehind
Code:


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("*.*")
articleList.DataBind()
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: " & _
"<code>File.Delete(fileName)</code><p>"

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


Can someone help me !?



EZ Archive Ads Plugin for vBulletin Copyright 2006 Computer Help Forum