Serializable Generic List Object
$30-100 USD
Pago na entrega
I need a serializable generic class that allows for-next looping. I have included an example of what I'm trying to accomplish. See the TestStatus routine below and the DataFolders collection in the attachment. The DataFolders class is set as a List(of DataFolder) and has one additional method. When I fill the DataFolders collection then try to iterate through it using:
For each DataFolder as [url removed, login to view] in DataFolders
...
Next
It only enumerates the last item in the collection (and does it 4 times because there are four items in the collection).
## Deliverables
This library contains the DataFiles class. The code I am using is as follows:
Sub TestStatus()
Dim Pnt As New [url removed, login to view]
Dim Info As New [url removed, login to view]
Dim Folders As New [url removed, login to view]
Dim Folder As [url removed, login to view]
Dim Files As New [url removed, login to view]
Dim File As New [url removed, login to view]
[url removed, login to view]()
For j As Long = 0 To [url removed, login to view] - 1
Folder = [url removed, login to view](j)
[url removed, login to view]([url removed, login to view])
[url removed, login to view]([url removed, login to view])
Files = New [url removed, login to view]
[url removed, login to view]([url removed, login to view], [url removed, login to view])
For k As Long = 0 To [url removed, login to view] - 1
File = [url removed, login to view](k)
Pnt = New [url removed, login to view]
[url removed, login to view]([url removed, login to view])
[url removed, login to view]("File: " & [url removed, login to view] & " " & [url removed, login to view] & vbTab & [url removed, login to view] & vbTab & [url removed, login to view])
Next
Next
[url removed, login to view]()
End Sub
ID do Projeto: #3185274