Jun 16, 2010 at 10:35 AM

On a 64 bit system change the project to compile x86


I hade to make the following changes to make it work.

change Folders = Nothing:

   Public Sub LoadFoldersOnTFsServer(ByVal Rootnode As String)
        TimeEmployedAction = Now.TimeOfDay.TotalSeconds
        Folders = New String() {}
       ReDim Folders(0)


And (i.e. never change on the variable you are iterating with and add check for if nothing)

                For Each sourceItem As String In colItems                  

 Dim sItem As String        

           If sourceItem Is Nothing Then Continue For          

         sItem = sourceItem.Replace("$/", "")
                    If sItem.Trim() > "" Then
                        i += 1
                        Try                            Dim levels() As String = Split(sItem, "/")
                            Dim NameLevel As String = levels(UBound(levels))                            levels(UBound(levels)) = ""
                            Dim ParentLevel As String = Join(levels, "/")                            If Len(ParentLevel) > 1 Then                                ParentLevel = Mid(ParentLevel, 1, Len(ParentLevel) - 1)                            End If
                            Dim Parent As TreeNode = Nothing
                            If ParentLevel.Trim = "" Then                                Parent = Primero                            Else                                Try                                    Parent = TreeView1.Nodes.Find(ParentLevel, True)(0)                                Catch ex As Exception                                    Parent = Primero                                End Try                            End If
                            Parent.Nodes.Add(sItem, NameLevel)
                        Catch ex As Exception
                            MsgBox("compose tree nodes on source control" & vbCrLf & ex.Message.ToString)                            Debug.Print("")
                        End Try
                    End If