[VERY URGENT!]Debug This Code![PLEASE]

[xDYLANx]

I need some help with this script. It's not working....

Private Sub LoadFavorites()
        'Set up the treeview
        tvFavorites.Nodes.Clear()
        tvFavorites.Nodes.Add("Favorites")
        tvFavorites.Nodes(0).ImageIndex = 10
        tvFavorites.Nodes(0).SelectedImageIndex = 10
 
        Dim FavPath() As String
        Dim strsplit() As String
        Dim strFav As String
        Dim i As Short
        Dim oNode As TreeNode
        Try
            'Load Folders from Favorites Root
            FavPath = Directory.GetDirectories(GetFolderPath(SpecialFolder.Favorites))
            For Each strFav In FavPath
                oNode = New TreeNode
                strsplit = Split(strFav, "\", , CompareMethod.Text)
                i = UBound(strsplit)
                oNode.ImageIndex = 18
                oNode.SelectedImageIndex = 19
                oNode.Text = strsplit(i)
                oNode.Tag = strFav
                tvFavorites.Nodes(0).Nodes.Add(oNode)
                LoadSubFolders(oNode, strFav)
            Next
 
            FavPath = Directory.GetFiles(GetFolderPath(SpecialFolder.Favorites))
            For Each strFav In FavPath
                If InStr(strFav, ".ini", CompareMethod.Text) Then
 
                Else
                    oNode = New TreeNode
                    Dim oFile As New FileInfo(strFav)
                    strsplit = Split(oFile.Name, ".url", , CompareMethod.Text)
                    oNode.Text = strsplit(0)
                    oNode.ImageIndex = 16
                    oNode.SelectedImageIndex = 16
                    oNode.Tag = GetUrl(strFav)
                    tvFavorites.Nodes(0).Nodes.Add(oNode)
                End If
            Next
        Catch ex As Exception
        Catch ex As DirectoryNotFoundException
        Catch ex As IO.IOException
        End Try
        oNode = Nothing
    End Sub

[gigemboy]

Where is the error at?? We need more info.. what line?

[xDYLANx]

With the tvFavorites.Nodes and the GetFolderPath.

[gigemboy]

Im guessing this is code you found?? You first need a treeview control on your form, called tvFavorites...

[gigemboy]

FavPath = Directory.GetDirectories(GetFolderPath(SpecialFolder.Favorites))

Nowhere do you have specialfolder.favorites defined... and the directory is not declared..

Directory example...

Dim MyDirectory As New System.IO.DirectoryInfo("Directory path")

After you declare your directory, THEN you can call .GetDirectories, and .GetFiles..

[xDYLANx]

I have a treeview named that. It's the nodes thats messing it up.

[Parallax]

Jeez...what is the error?!

[gigemboy]

I just copied a treeview in my form, and ran the following code:

'in button click
        LoadFavorites()
        
        'sub in form
        Private Sub LoadFavorites()
        'Set up the treeview
        tvFavorites.Nodes.Clear()
        tvFavorites.Nodes.Add("Favorites")
        tvFavorites.Nodes(0).ImageIndex = 10
        tvFavorites.Nodes(0).SelectedImageIndex = 10
        End Sub

All worked fine... I repeat.. are you SURE you have a treeview control NAMED tvFavorites in the SAME form you are calling the LoadFavorites sub from?

[gigemboy]

And here is your code I modified on my machine, currently it loads what is in my "c:\" directory and adds them to the listbox... There were other things not shown in your code, that wern't defined, or defined elsewhere... (certain lines are commented out for a reason, in order to post a working example...)

Private Sub LoadFavorites()
        'Set up the treeview
        tvFavorites.Nodes.Clear()
        tvFavorites.Nodes.Add("Favorites")
        tvFavorites.Nodes(0).ImageIndex = 10
        tvFavorites.Nodes(0).SelectedImageIndex = 10
 
        Dim FavPath() As String
        Dim strsplit() As String
        Dim strFav As String
        Dim i As Integer
        Dim oNode As TreeNode
        Dim MyDirectory As System.IO.Directory
 
        Try
            'Load Folders from Favorites Root
            FavPath = MyDirectory.GetDirectories("C:\")
            For Each strFav In FavPath
                oNode = New TreeNode()
                strsplit = Split(strFav, "\", , CompareMethod.Text)
                i = UBound(strsplit)
                oNode.ImageIndex = 18
                oNode.SelectedImageIndex = 19
                oNode.Text = strsplit(i)
                oNode.Tag = strFav
                tvFavorites.Nodes(0).Nodes.Add(oNode)
                'LoadSubFolders(oNode, strFav)
            Next
 
            FavPath = MyDirectory.GetFiles("C:\")
            For Each strFav In FavPath
                If InStr(strFav, ".ini", CompareMethod.Text) = 1 Then
 
                Else
                    oNode = New TreeNode()
                    Dim oFile As New System.IO.FileInfo(strFav)
                    strsplit = Split(oFile.Name, ".url", , CompareMethod.Text)
                    oNode.Text = strsplit(0)
                    oNode.ImageIndex = 16
                    oNode.SelectedImageIndex = 16
                    'oNode.Tag = GetUrl(strFav)
                    tvFavorites.Nodes(0).Nodes.Add(oNode)
                End If
            Next
        Catch ex As Exception
            'Catch ex As DirectoryNotFoundException
        Catch ex As IO.IOException
        End Try
        oNode = Nothing
End Sub

[xDYLANx]

Nice...thanks a bunch. However, it's still having trouble with the tvFavorites.Nodes

[Grunt]

what is the error? Tough to fix if we dont know.

[xDYLANx]

'Nodes' is not a member of 'System.Windows.Forms.ListView'.

[mar_zim]

Why are you calling the node property in listview? Listview has no node property only treeview has it.

[xDYLANx]

Im not too sure. It was just in the example i found. Any way around it?

[gigemboy]

Once again... you need to have a TREEVIEW... not a LISTVIEW named tvFavorites.....
If you ADD A TREEVIEW instead of a LISTVIEW it will WORK! lol.. don't know how many times we have to say it...

Notice in the comments in the code...

'Set up the Treeview

[xDYLANx]

Ok mr.fancy pants. Debug this one.

If Not CurNode.Tag = Nothing Then
Process.Start(CurNode.Tag)
End If

[xDYLANx]

CurNode is not declared.

[gigemboy]

Though not in your previous code, the "Tag" is an option for each item of the treeview. They are simply running then current node's tag (a variable they declared) in a Process.Start command...
Example.....

Dim CurNode As TreeNode
CurNode.Tag = tvFavorites.Nodes(0).Tag

[xDYLANx]

OK then. So

Dim CurNode As  TreeNode 
CurNode.Tag = tvfavorites.Nodes(0) .Tag

will do the same as the messed up code that i had?

[gigemboy]

No, not sure what they are putting as a tag.. the code above doesn't add a tag to the treeview items, so you would get an error.

[xDYLANx]

What would be a treeview tag?

[xDYLANx]

Anyone?

[gigemboy]

if you give us a description of what you are trying to accomplish exactly, we can try to give you better suggestions... I'm not sure where this tag code popped up, and why you are trying to use it, as it was not in your original post...