Visual Basic

Imports System.IO<br />
Imports System.Runtime.InteropServices<br />
Public Class Explorer<br />
    Inherits System.Windows.Forms.Form<br />
<br />
#Region " Windows Form Designer generated code "<br />
<br />
    Public Sub New()<br />
        MyBase.New()<br />
<br />
        'This call is required by the Windows Form Designer.<br />
        InitializeComponent()<br />
<br />
        'Add any initialization after the InitializeComponent() call<br />
<br />
    End Sub<br />
<br />
    'Form overrides dispose to clean up the component list.<br />
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)<br />
        If disposing Then<br />
            If Not (components Is Nothing) Then<br />
                components.Dispose()<br />
            End If<br />
        End If<br />
        MyBase.Dispose(disposing)<br />
    End Sub<br />
<br />
    'Required by the Windows Form Designer<br />
    Private components As System.ComponentModel.IContainer<br />
<br />
    'NOTE: The following procedure is required by the Windows Form Designer<br />
    'It can be modified using the Windows Form Designer.  <br />
    'Do not modify it using the code editor.<br />
    Friend WithEvents TreeView1 As System.Windows.Forms.TreeView<br />
    Friend WithEvents ContextMenu1 As System.Windows.Forms.ContextMenu<br />
    Friend WithEvents MenuItem1 As System.Windows.Forms.MenuItem<br />
    Friend WithEvents MenuItem2 As System.Windows.Forms.MenuItem<br />
    Friend WithEvents MenuItem3 As System.Windows.Forms.MenuItem<br />
    Friend WithEvents MenuItem4 As System.Windows.Forms.MenuItem<br />
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()<br />
        Me.TreeView1 = New System.Windows.Forms.TreeView<br />
        Me.ContextMenu1 = New System.Windows.Forms.ContextMenu<br />
        Me.MenuItem1 = New System.Windows.Forms.MenuItem<br />
        Me.MenuItem2 = New System.Windows.Forms.MenuItem<br />
        Me.MenuItem3 = New System.Windows.Forms.MenuItem<br />
        Me.MenuItem4 = New System.Windows.Forms.MenuItem<br />
        Me.SuspendLayout()<br />
        '<br />
        'TreeView1<br />
        '<br />
        Me.TreeView1.ImageIndex = -1<br />
        Me.TreeView1.Location = New System.Drawing.Point(0, 0)<br />
        Me.TreeView1.Name = "TreeView1"<br />
        Me.TreeView1.SelectedImageIndex = -1<br />
        Me.TreeView1.Size = New System.Drawing.Size(224, 448)<br />
        Me.TreeView1.TabIndex = 0<br />
        '<br />
        'ContextMenu1<br />
        '<br />
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem1, Me.MenuItem2, Me.MenuItem3, Me.MenuItem4})<br />
        '<br />
        'MenuItem1<br />
        '<br />
        Me.MenuItem1.Index = 0<br />
        Me.MenuItem1.Text = "Open"<br />
        '<br />
        'MenuItem2<br />
        '<br />
        Me.MenuItem2.Index = 1<br />
        Me.MenuItem2.Text = "Rename"<br />
        '<br />
        'MenuItem3<br />
        '<br />
        Me.MenuItem3.Index = 2<br />
        Me.MenuItem3.Text = "Delete"<br />
        '<br />
        'MenuItem4<br />
        '<br />
        Me.MenuItem4.Index = 3<br />
        Me.MenuItem4.Text = "Properties"<br />
        '<br />
        'Explorer<br />
        '<br />
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)<br />
        Me.ClientSize = New System.Drawing.Size(224, 446)<br />
        Me.Controls.Add(Me.TreeView1)<br />
        Me.Name = "Explorer"<br />
        Me.Text = "Explorer"<br />
        Me.ResumeLayout(False)<br />
<br />
    End Sub<br />
<br />
#End Region<br />
    Dim entry As Integer = 1<br />
    Dim mouseentry As Boolean<br />
<br />
#Region "Structure Declaration"<br />
    Private Structure SHFileInfo<br />
        Public hIcon As IntPtr<br />
        Public iIcon As Integer<br />
        Public dwfileattributes As Integer<br />
        <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> Public path As String<br />
    End Structure<br />
#End Region<br />
    <br />
#Region "Api"<br />
    Private Declare Auto Function SHGetFileInfo Lib "shell32.dll" (ByVal filepath As String, ByVal dwfileattributes As Integer, ByRef shfi As SHFileInfo, ByVal ileinfo As Integer, ByVal flags As Integer) As IntPtr<br />
    Private Const iconsize = 1<br />
#End Region<br />
    Dim imagelist As New imagelist<br />
    Dim imageindex As Long<br />
<br />
    Private Sub Explorer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
        TreeView1.ImageList = imagelist<br />
        For drives As Integer = 0 To Directory.GetLogicalDrives.Length - 1<br />
            TreeView1.Nodes.Add(Directory.GetLogicalDrives(drives).Remove(Directory.GetLogicalDrives(drives).Length - 1, 1))<br />
            Dim node As New TreeNode<br />
            node.Text = ""<br />
            TreeView1.Nodes(drives).Nodes.Add(node)<br />
            node = Nothing<br />
            GetIcons(Directory.GetLogicalDrives(drives), TreeView1.Nodes(drives))<br />
        Next<br />
    End Sub<br />
    Private Sub GetIcons(ByVal path As String, ByVal treenode As TreeNode)<br />
        Dim ptr As IntPtr<br />
        Dim psfi As New SHFileInfo<br />
        ptr = SHGetFileInfo(path, 0, psfi, Marshal.SizeOf(psfi), iconsize Or 256)<br />
        imagelist.Images.Add(System.Drawing.Icon.FromHandle(psfi.hIcon))<br />
        treenode.ImageIndex = imageindex<br />
        '       treenode.SelectedImageIndex = imageindex<br />
        imageindex += 1<br />
    End Sub<br />
    Private Sub TreeView1_AfterSelect(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect<br />
        If (e.Action = TreeViewAction.Unknown) Then<br />
            Return<br />
        End If<br />
        TreeView1.SelectedImageIndex = TreeView1.SelectedNode.ImageIndex<br />
        e.Node.Expand()<br />
    End Sub<br />
<br />
    Private Sub TreeView1_AfterExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterExpand<br />
        If (Not e.Node.Nodes(0).GetNodeCount(False) = 0) Then<br />
            e.Node.FirstNode.Remove()<br />
        End If<br />
        Dim text As String = e.Node.Text<br />
        Dim treenode As New TreeNode<br />
        treenode = e.Node()<br />
        While (Not treenode Is Nothing)<br />
            treenode = treenode.Parent<br />
            If (Not treenode Is Nothing) Then<br />
                text = treenode.Text + "\" + text<br />
            End If<br />
        End While<br />
        GetDirectory(e.Node, text)<br />
    End Sub<br />
    Private Sub GetDirectory(ByVal treenode As TreeNode, ByVal text As String)<br />
        treenode.FirstNode.Remove()<br />
        Dim insertdir As Integer<br />
        If (Directory.Exists(text & "\")) Then<br />
            For directorycount As Integer = 0 To Directory.GetDirectories(text & "\").Length - 1<br />
                Dim dir As String = Directory.GetDirectories(text & "\").GetValue(directorycount)<br />
                If (File.GetAttributes(dir) = 16 Or File.GetAttributes(dir) = 17 Or File.GetAttributes(dir) = 48 Or File.GetAttributes(dir) = 49 Or File.GetAttributes(dir) = 20) Then<br />
                    dir = dir.Remove(0, dir.LastIndexOf("\") + 1)<br />
                    treenode.Nodes.Add(dir)<br />
                    Dim node As New TreeNode<br />
                    node.Text = ""<br />
                    treenode.Nodes(insertdir).Nodes.Add(node)<br />
                    GetIcons(Directory.GetDirectories(text & "\").GetValue(directorycount), treenode.Nodes(insertdir))<br />
                    node = Nothing<br />
                    insertdir += 1<br />
                End If<br />
            Next<br />
        End If<br />
    End Sub<br />
<br />
    Private Sub TreeView1_BeforeCollapse(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeCollapse<br />
        For count As Integer = 0 To e.Node.GetNodeCount(False) - 1<br />
            e.Node.Nodes(count).Remove()<br />
            count -= 1<br />
            If (e.Node.GetNodeCount(False) = 0) Then<br />
                Dim node As New TreeNode<br />
                node.Text = ""<br />
                e.Node.Nodes.Add(node)<br />
                node = Nothing<br />
                Return<br />
            End If<br />
        Next<br />
    End Sub<br />
<br />
    Private Sub TreeView1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TreeView1.MouseDown<br />
        If (e.Button = MouseButtons.Left) Then<br />
            TreeView1.SelectedNode = TreeView1.GetNodeAt(e.X, e.Y)<br />
        End If<br />
        If (e.Button = MouseButtons.Right) Then<br />
            TreeView1.SelectedNode = TreeView1.GetNodeAt(e.X, e.Y)<br />
            <br />
            Dim point As New Point<br />
            point.X = e.X<br />
            point.Y = e.Y<br />
            ContextMenu1.Show(TreeView1, point)<br />
        End If<br />
    End Sub<br />
End Class