List of directories and files

[Kasracer]

I'm trying to make some functions to generate a list of everything in a directory I specify. I need for 1 list, all of the folders and then in the other list I need each file in the folders.

How can I get all of the directories in a directory I specify and then put it in a list (or array, I could put the array into the list) and how can I get the list of all of the files in a directory?

[crptcblade]

Dim di As New DirectoryInfo("c:\")

di.GetDirectories()
di.GetFiles()

[dynamic_sysop]

wow beaten to the post

[Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Button1_Click([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] Button1.Click
        [Color=Blue]Dim[/COLOR] strDirectories [Color=Blue]As[/COLOR] [Color=Blue]String[/COLOR]() = IO.Directory.GetDirectories("C:\")
        ListBox1.Items.AddRange(strDirectories)
    [Color=Blue]End[/COLOR] [Color=Blue]Sub
 
[/COLOR]    [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] ListBox1_MouseUp([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] [Color=Blue]Object[/COLOR], [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.Windows.Forms.MouseEventArgs) [Color=Blue]Handles[/COLOR] ListBox1.MouseUp
        [Color=Blue]Try
[/COLOR]            [Color=Blue]If[/COLOR] [Color=Blue]Not[/COLOR] ListBox1.SelectedIndex = -1 [Color=Blue]Then
[/COLOR]                [Color=Blue]Dim[/COLOR] strFiles [Color=Blue]As[/COLOR] [Color=Blue]String[/COLOR]() = IO.Directory.GetFiles(ListBox1.SelectedItem)
                [Color=Blue]Dim[/COLOR] x [Color=Blue]As[/COLOR] [Color=Blue]Integer
[/COLOR]                [Color=Blue]For[/COLOR] x = strFiles.GetLowerBound(0) [Color=Blue]To[/COLOR] strFiles.GetUpperBound(0)
                    strFiles(x) = strFiles(x).Replace(ListBox1.SelectedItem, "")
                [Color=Blue]Next
[/COLOR]                ListBox2.Items.Clear()
                ListBox2.Items.AddRange(strFiles)
            [Color=Blue]End[/COLOR] [Color=Blue]If
[/COLOR]        [Color=Blue]Catch[/COLOR] ex [Color=Blue]As[/COLOR] Exception
            MessageBox.Show(ex.Message)
        [Color=Blue]End[/COLOR] [Color=Blue]Try
[/COLOR]    [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]

[Kasracer]

edit: nm, brain fart. Thanks

[Kasracer]

This doesn't seem to work at all, it gives me an excemption when I try to open the Form that will list this.

It says Object reference not set to an instance of the object

[Edneeis]

Which one doesn't work?

crptcblade's code assumes you have an Imports System.IO, whether its in the form or project wide.

dynamic_sysop's assumes you have a listbox named Listbox1 on the form the code belongs to. (i think you knew that though)

Also the GetDirectories, GetFiles methods may return Nothing instead of an empty array if no results are found.

[Kasracer]

Originally posted by Edneeis
Which one doesn't work?

crptcblade's code assumes you have an Imports System.IO, whether its in the form or project wide.

dynamic_sysop's assumes you have a listbox named Listbox1 on the form the code belongs to. (i think you knew that though)

Also the GetDirectories, GetFiles methods may return Nothing instead of an empty array if no results are found.

I tried imports system.IO and it still won't work. None of my code gives me errors

my ListBox is ListBox1 and I'm testing it on a directory with alot of diles (d so I dunno *** is going on.

Public Shared Function PopulateList1() As System.Windows.Forms.ListBox
            Dim ListBox1 As System.Windows.Forms.ListBox
            Dim strDirectories As String() = IO.Directory.GetDirectories("D:\")
            ListBox1.Items.AddRange(strDirectories)
            Return ListBox1
        End Function

Note: I have this code in a DLL, but the DLL is references to my program and the program uses alot of functions in the DLL perfectly fine.

[Edneeis]

You never set ListBox1 to an instance, there is no new in there. Either stick it in the declaration or try this:

Public Shared Sub PopulateList1(ByRef lbo as ListBox)
    lbo.Items.AddRange(IO.Directory.GetDirectories("D:\"))
End Sub

[Kasracer]

Originally posted by Edneeis
You never set ListBox1 to an instance, there is no new in there. Either stick it in the declaration or try this:

Public Shared Sub PopulateList1(ByRef lbo as ListBox)
    lbo.AddRange(IO.Directory.GetDirectories("D:\"))
End Sub

I tried putting the listbox in the input of the function and using it, I also tried new when I create it within the function.

Both still do the samething.

Is there a problem setting the listbox in my program equal to the returned listbox from the DLL?

[Edneeis]

What samething do they do? The Not set to an instance error? Which line is giving you the trouble? Where does the debugger freak out at? I'll stick it in a dll and try to recreate the problem.

You have a reference to System.Windows.Forms in the dll right? Also I forgot 'Items' in my example (I edited it now).

Also what kind of device is your D drive? CDROM? Hard Drive?

[Edneeis]

Well I ran the following code from a dll and everything worked fine. My D drive is a DVDROM.

'in dll
    Public Shared Sub PopulateList1(ByRef lbo As ListBox)
        lbo.Items.AddRange(IO.Directory.GetDirectories("D:\"))
    End Sub
 
'in form
TestDLL1.Tester.PopulateList1(ListBox1)

[Kasracer]

Originally posted by Edneeis
What samething do they do? The Not set to an instance error? Which line is giving you the trouble? Where does the debugger freak out at? I'll stick it in a dll and try to recreate the problem.

You have a reference to System.Windows.Forms in the dll right? Also I forgot 'Items' in my example (I edited it now).

Also what kind of device is your D drive? CDROM? Hard Drive?

It never pointed me to a part of my code, otherwise I probably would of been able to fix this myself. It just stops and says there is no source code available for the debugger. That was in release mode, in the debugger mode, it bitches when I used form.showdialog() to show a form. It works perfectly fine if I don't use the code so I know that isn't the problem.

An unhandled exception of type 'System.NullReferenceException' occurred in Binary Edit.exe

Additional information: Object reference not set to an instance of an object

My D: is another hard drive(the main drive actually)

and yes I have a reference to System.Windows.Forms in the DLL.

Originally posted by Edneeis
Well I ran the following code from a dll and everything worked fine. My D drive is a DVDROM.

'in dll
    Public Shared Sub PopulateList1(ByRef lbo As ListBox)
        lbo.Items.AddRange(IO.Directory.GetDirectories("D:\"))
    End Sub
 
'in form
TestDLL1.Tester.PopulateList1(ListBox1)

Just tried that, still the EXACT same error, ugh.

In my DLL:

Public Shared Sub PopulateList1(ByRef lbo As System.Windows.Forms.ListBox)
            lbo.Items.AddRange(IO.Directory.GetDirectories("D:\"))
        End Sub

In my form:

Templates.TextType.Populate.PopulateList1(listboxTemplate1)

Ugh, I don't get it.

[Edneeis]

Seems to be some sort of weirdness going on. Can you surround the code in a try catch and get the stack trace? Or from the debugger's Immediate window you might be able to get it. That should give you a history of what happened and what lines are muffin' up. Or if there is something you can post or email then I'll look at it further.

[Kasracer]

I don't even know how to do a stack trace.

This is wierd though. My code was almost the same as what was posted when I was figuring this out, but it didn't work at all so I figured to ask. Hmm, mybe a bug in VB?

Don't really have any code to give ya. Basically, I have a main form. You click a button and it opens a little form. On load the little form is supposed to use a function in the DLL to get all of the directories and files so it can list them in the form that calls it.

[Edneeis]

StackTrace is a property of the exception object. It lists some very useful information like the methods called and what file and line they are in/on.

Try
'code
Catch Ex As Exception
Msgbox(e.StackTrace)
End Try

It could be a bug but then why does it work for me. Maybe its something small that we overlooked. I'll post a working example and have you run it.

[Kasracer]

Alright I fixed it out.

Damn, that was stupid. With my MDI application, I'm opening and closing alot of different forms, figured I'd make a mistake opening a form.

I forgot new for opening the form.

Still wierd though cause it worked without it a few times

[Edneeis]

Yeah that is wierd but at least its fixed now.