I have something that works, but it only returns one row of data when i 
create an ObjectDataSource with it and bind it to a gridview so i need a 
little help with this (thanks)

as simple as it gets 
1. my class:
Imports Microsoft.VisualBasic
Public Class radioShowFiles
    Private _szFileName As String
    Public Property szFileName() As String
        Get
            Return _szFileName
        End Get
        Set(ByVal value As String)
            _szFileName = value
        End Set
    End Property
End Class
2. 
the functions that allows it to bind:
    Public Function fn_getallRadioShows() As DirectoryInfo
        Dim ri As System.IO.DirectoryInfo = New 
System.IO.DirectoryInfo("c:\websites\arlnewlook\radioshows")
        Return ri
    End Function
    Function fn_rtn() As radioShowFiles
        Dim rsf As radioShowFiles = New radioShowFiles
         Dim ri As DirectoryInfo = Me.fn_getallRadioShows
        Dim diar1 As IO.FileInfo() = ri.GetFiles()
        Dim dra As IO.FileInfo
        For Each dra In diar1
            rsf.szFileName = dra.Name
        Next
        Return rsf
    End Function
End Class
I know why it's only including the last row of data, but i am sorry to say i 
don't know what to do to change it! I know i'm very close.
THANKS!
KES
-- 
Share The Knowledge. I need all the help I can get and so do you!

revised: this one works, but i have no idea if this is the best way to do 
this!!!
(Again this is a basic no-noth'n example, but it does work)
radioShowFies: just the file name 
Imports Microsoft.VisualBasic
Public Class radioShowFiles
    Sub New()

    End Sub
    Sub New(ByVal p_FileName As String)
        Me.szFileName = p_FileName
    End Sub
    Private _szFileName As String
    Public Property szFileName() As String
        Get
            Return _szFileName
        End Get
        Set(ByVal value As String)
            _szFileName = value
        End Set
    End Property
End Class
------------------
Ther object that will bind to a gridview (just change thedir path and it 
should workfor you too)
Imports Microsoft.VisualBasic
Imports System.IO
Imports System.Collections.Generic
Public Class RadioShowFunctions

    Public Function fn_getallRadioShows() As DirectoryInfo
        Dim ri As System.IO.DirectoryInfo = New 
System.IO.DirectoryInfo("c:\websites\arlnewlook\radioshows")
        Return ri
    End Function
    Function fn_rtn() As List(Of radioShowFiles)
        Dim shows As New List(Of radioShowFiles)
        Dim ri As DirectoryInfo = Me.fn_getallRadioShows
        Dim diar1 As IO.FileInfo() = ri.GetFiles()
        Dim dra As IO.FileInfo
        For Each dra In diar1
            shows.Add(New radioShowFiles(dra.Name))
        Next
        Return shows
    End Function
End Class

i really want comments on this because i have no contact with other 
programmers other than this news group!

-- 
Share The Knowledge. I need all the help I can get and so do you!


"Yankee Imperialist Dog" wrote:


> I have something that works, but it only returns one row of data when i 
> create an ObjectDataSource with it and bind it to a gridview so i need a 
> little help with this (thanks)
> 
> as simple as it gets 
> 1. my class:
> Imports Microsoft.VisualBasic
> Public Class radioShowFiles
>     Private _szFileName As String
>     Public Property szFileName() As String
>         Get
>             Return _szFileName
>         End Get
>         Set(ByVal value As String)
>             _szFileName = value
>         End Set
>     End Property
> End Class
> 2. 
> the functions that allows it to bind:
>     Public Function fn_getallRadioShows() As DirectoryInfo
>         Dim ri As System.IO.DirectoryInfo = New 
> System.IO.DirectoryInfo("c:\websites\arlnewlook\radioshows")
>         Return ri
>     End Function
>     Function fn_rtn() As radioShowFiles
>         Dim rsf As radioShowFiles = New radioShowFiles
>          Dim ri As DirectoryInfo = Me.fn_getallRadioShows
>         Dim diar1 As IO.FileInfo() = ri.GetFiles()
>         Dim dra As IO.FileInfo
>         For Each dra In diar1
>             rsf.szFileName = dra.Name
>         Next
>         Return rsf
>     End Function
> End Class
> I know why it's only including the last row of data, but i am sorry to say i 
> don't know what to do to change it! I know i'm very close.
> THANKS!
> KES
> -- 
> Share The Knowledge. I need all the help I can get and so do you!