Breadcrumbs

[bjm0008]

I was attempting to create a file and directory browser, I spent hours on it, problem after problem.
I literally abandoned the project to test some code snippets. When I realized that there are more than the default form tools such as mediaplayer, I felt stupid.



http://www.mediafire.com/file/5hynifou5 ... plorer.zip

Directory Explorer.zip

http://www.mediafire.com/file/5hynifou5 ... plorer.zip



To access these other tools follow these instructions:

1. Right click on any tool (I'm rightclicking on textbox)



2.A. Click "Choose Items" and wait for box to appear (may take at most 10minutes)
B. Type in "Listbox"



3. Check off 'FileListBox' and 'DirListBox'

4.The New Tools are now ready for use.


What the form should look like:

Code: Select all

Imports System.IO
Public Class Form1
    Dim ProStrt As String

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        FileListBox1.Path = DirListBox1.Path
        DIRToolStripMenuItem.Text = DirListBox1.Path & "\" & FileListBox1.SelectedItem
        ProStrt = DirListBox1.Path & "\" & FileListBox1.SelectedItem
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.MinimumSize = Me.Size
        Timer1.Enabled = True
        TextBox1.Enabled = False
        Button1.Enabled = False
    End Sub

    Private Sub FileListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles FileListBox1.DoubleClick
        Process.Start(ProStrt)
    End Sub

    Private Sub AddDirectoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddDirectoryToolStripMenuItem.Click
        TextBox1.Enabled = True
        Button1.Enabled = True
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        MkDir(DirListBox1.Path & "\" & TextBox1.Text)
        TextBox1.Enabled = False
        Button1.Enabled = False
    End Sub

    Private Sub RemoveDirectoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RemoveDirectoryToolStripMenuItem.Click
        FileListBox1.Path = ("C:\users\" & Environment.UserName & "\")
        System.IO.Directory.Delete(DirListBox1.Path & "\" & DirListBox1.SelectedItem)
        DirListBox1.Path = (DirListBox1.Path)
        MsgBox("Directory Deleted," & vbNewLine & "along with any files and subfolders." & vbNewLine & "please reload directory to see results.")
    End Sub
End Class

Directory Explorer.zip

Directory Explorer.zip

Directory Explorer.zip

http://www.mediafire.com/file/5hynifou5 ... plorer.zip

[XTechVB]

nice thanks!!!!

[zachman61]

thanks i made it so they can click the directory to open it up but the create and textbox will not turn on

[bjm0008]

thanks i made it so they can click the directory to open it up but the create and textbox will not turn on

Thanks for the feedback, sorry I must have excluded this part from the post.
When a docked item is visible it sets its order so its 'topmost'. To fix that just undock ALL items and select textbox and button, on the tool bar ubove click format>Order>Bring To front. Re-Dock The items ( to same places )

Now you should be fine

[Moayad]

i like this keep it up

[un kn0 wn]

nice but why have u added 3 attachments?

[codenstuffplanet]

Someone could transform this into an antivirus.