Breadcrumbs

[hungryhounduk]

Hi All
Well i went to bed about 11.30 and you know when your mind just keeps racing and you just cant get to sleep, well it was one of those nights ;) So up i got and produced this little jem of a Program

Which is just so simple with a few lines of code ( that you just repeat and change the "Path")

You know when you want to create a Folder "Well what i always do is Create one on the desktop then i Cut & Paste it too wherever i want it to go"

"Well i have come up with a better way to do it and is not so time consuming" cooll;




On your Form Create
1 Combobox
1 Textbox
2 Labels
1 Button

All the Code goes in your Button.

all you do is add your "Paths" to the Combobox Collections tab, and then code it so that if you choose a Path from the combobox list and type in the textbox your New Folder name, It will create a New Folder in that Path or Directory that you have choosen cooll; How cool is that

The code below is for my Paths to the Diirectorys where i want my Folders

You can just copy the code and change the paths to suit yourselves

Code: Select all

 If ComboBox1.Text = "C:\Documents and Settings\hh\Desktop" Then
            MkDir(ComboBox1.Text + "\" + TextBox1.Text)
        Else
            If ComboBox1.Text = "C:\Documents and Settings\hh\My Documents" Then
                MkDir(ComboBox1.Text + "\" + TextBox1.Text)
            Else
                If ComboBox1.Text = "C:\Documents and Settings\hh\My Documents\My Pictures" Then
                    MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                Else
                    If ComboBox1.Text = "C:\" Then
                        MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                    Else
                        If ComboBox1.Text = "C:\Program Files" Then
                            MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                        Else
                            If ComboBox1.Text = "C:\Documents and Settings\hh\My Documents\My Videos" Then
                                MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                            Else
                                If ComboBox1.Text = "C:\Documents and Settings\All Users\Documents\My Music" Then
                                    MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                                Else
                                    If ComboBox1.Text = "F:\" Then
                                        MkDir(ComboBox1.Text + "\" + TextBox1.Text)
                                    End If
                                End If
                            End If
                        End If
                    End If

You can add as many "Paths" as you like to as many Directorys as you like

enjoy

Chris

[CodenStuff]

Hello hungryhounduk,

I like this, I realy love these small applications you keep making. So simple yet very useful and effective cooll;

Having a late night then I see. Im up late aswell but im going to bed in a minute because my nice soft pillow is calling me, plus its freezin :( .

[hungryhounduk]

Hi Codenstuff
Thanks I think all that flaffing around earlier i did just frazzled me brain, But actually did me a favour cooll;

Chris

[CodemaN]

thankssssssssss man!!!!!!!!!!!!!!!!!!!!!!!!11