Datagrid display

B

bobbynad

Newcomer
Joined
Jun 28, 2003
Messages
20
Location
India
Hello ,

I have few problems in regard to the code below
1. The DataGrid is not displayed
2. I want to insert some data in the array and latter the array is attached to the datagrid. I am facing some errors a) at line AryFiles(FilCount) = New FileList(Fl.Name, Fl.Type, Fl.DateCreated) it shows the array out of bound. b) I tried to see the results using break point , I couldn't as it dosen't reach the breakpoint , Please let me know the process to apply break point and debug.

Where am i wrong in this code


Imports System.ComponentModel
Public Class WebForm1
Inherits System.Web.UI.Page

Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
Protected WithEvents ListBox1 As System.Web.UI.WebControls.ListBox
Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
Protected WithEvents Button1 As System.Web.UI.WebControls.Button
Private AryFiles() As FileList = New FileList(1000) {}

Protected WithEvents Label1 As System.Web.UI.WebControls.Label



Dim FilCount As Integer
#Region " Web Form Designer Generated Code "

'This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

End Sub

Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
'CODEGEN: This method call is required by the Web Form Designer
'Do not modify it using the code editor.
InitializeComponent()
End Sub

#End Region

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
FilCount = 0

'Put user code to initialize the page here
End Sub



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FilCount = 0
FilDisplay("C:\Documents and settings")
DataGrid1.DataSource = AryFiles
End Sub
Private Sub FilDisplay(ByVal Str As String)
Dim Fld As Scripting.Folder
Dim Fl As Scripting.File
Dim FSO = New Scripting.FileSystemObject()
For Each Fl In FSO.getfolder(Str).files
AryFiles(FilCount) = New FileList(Fl.Name, Fl.Type, Fl.DateCreated)
FilCount = FilCount + 1
Next
For Each Fld In FSO.getfolder(Str).subfolders
FilDisplay(Str & "\" & Fld.Name)
Next
End Sub
End Class


Public Class FileList

Private m_FileName As String
Private m_FileType As String
Private m_FileCreated As Date


Public ReadOnly Property FileName()
Get
FileName = m_FileName
End Get
End Property

Public ReadOnly Property FileType()
Get
FileType = m_FileType
End Get
End Property

Public ReadOnly Property FileCreated()
Get
FileCreated = m_FileCreated
End Get
End Property



Public Sub New(ByVal FileName As String, ByVal FileType As String, ByVal FileCreated As Date)
Me.m_FileName = FileName
Me.m_FileType = FileType
Me.m_FileCreated = FileCreated

End Sub

End Class
 
Back
Top