VB.Net File manager help - .Net

PlatinumHex

I'm bored. Might as well post my questions to see if anyone can asnwer it. I have been struggling with it for days.
All right, I'm working on a file manager application in VB.Net.
I have a variable, hmm... let say "MyDirList".

It contains information like:


Data&#46;rtf
Folder/Example&#46;txt
Images/2010 Trip/IMG_2010_01&#46;jpg
Images/2010 Trip/IMG_2010_02&#46;jpg
Images/2010 Trip/IMG_2010_03&#46;jpg
Documents/Schoolwork/Science&#46;doc
Documents/Schoolwork/Unused/Maths&#46;doc

This is my failed codes:


Private Sub FolderClickSub(ByVal keyname As String)
        
        For Each fileitem As String In MyDirList
            If fileitem&#46;FileName&#46;Contains(keyname) Then
                If fileitem&#46;FileName&#46;EndsWith(keyname) Then
                    Return
                End If
            End If
        Next

        ListView1&#46;Items&#46;Clear()



        For Each fileitem In MyDirList
            If fileitem&#46;FileName&#46;Contains(keyname) Then

                If Not oldname = keyname Then
                    RootPath += keyname + \"/\"
                    oldname = keyname
                End If


                Dim newfoldername As String = fileitem&#46;FileName

                If RootPath &lt;&gt; \"\" Then
                    newfoldername = SubStringRemove(newfoldername, RootPath)
                End If


                Dim therest As String = \"\"

                If newfoldername&#46;Contains(\"/\") Then
                    therest = newfoldername&#46;Substring(newfoldername&#46;IndexOf(\"/\"))

                    newfoldername = SubStringRemove(newfoldername, therest)
                End If

                If ListView1&#46;FindItemWithText(newfoldername) Is Nothing Then
                    ListView1&#46;Items&#46;Add(newfoldername)
                End If
            End If
        Next
    End Sub

I know it's a mess, but any help would be very much appreciated!

Howdy, Stranger!

Top Posters

Who's Online (1)