Pasted

Imports System.IO
 
Module zexplorer
 
    Public Function dirictoryname1(ByVal dirictorypath As String) As String
        Dim currentDirectory As String = dirictorypath
        Dim newCurrentDirectory As DirectoryInfo = New DirectoryInfo(currentDirectory)
        Dim diectoryoutput As String
        diectoryoutput = newCurrentDirectory.Name
        Return diectoryoutput
    End Function
 
    Public Function dirictoryparentname1(ByVal dirictorypath As String) As String
        Dim currentDirectory As String = dirictorypath
        Dim newCurrentDirectory As DirectoryInfo = New DirectoryInfo(currentDirectory)
        Dim diectoryoutput As String
        diectoryoutput = newCurrentDirectory.Parent.Name
        Return diectoryoutput
    End Function
 
    Public Function dirictoryback(ByVal dirictorypath As String) As String
        Dim currentDirectory As String = dirictorypath
        Dim newCurrentDirectory As DirectoryInfo = New DirectoryInfo(currentDirectory)
        Dim diectoryoutput As String
        diectoryoutput = newCurrentDirectory.Parent.FullName
        Return diectoryoutput
    End Function
 
End Module
 
'Return Partial Path Treeview ( onwards from Home Folder ), Read Snippets & txt files
Dim home As String = Application.StartupPath + "\home"
 
 Private Sub explorer_tree_AfterSelect(sender As System.Object, e As System.Windows.Forms.TreeViewEventArgs) Handles explorer_tree.AfterSelect
 
        Dim vCurrentFolder As String = GetFullPathForTreeNode(e.Node)
        Dim Extension As String = Path.GetExtension(vCurrentFolder)
 
        If Extension = ".txt" Or Extension = ".snippet" Then
            If dirictoryparentname1(vCurrentFolder) = "home" Then
                Txtenterpath.Text = dirictoryname1(vCurrentFolder)
            Else
                Txtenterpath.Text = ReturnStringPath(vCurrentFolder)
            End If
 
            Dim str As New StreamReader(vCurrentFolder)
            Dim line As String
            Dim textAll As String = ""
            Dim LastLine As Boolean = False
 
            Do Until LastLine
                line = str.ReadLine()
                If line Is Nothing Then
                    LastLine = True
                Else
                    textAll = textAll & line & vbCrLf 'Chr(13) + chr(10)
                End If
            Loop
            Txtreadwrite.Text = textAll
            str.Close()
            str.Dispose()
        Else
            If dirictoryparentname1(vCurrentFolder) = "home" Then
                Txtenterpath.Text = dirictoryname1(vCurrentFolder)
            Else
                Txtenterpath.Text = ReturnStringPath(vCurrentFolder)
            End If
            Txtreadwrite.Clear()
        End If
 
    End Sub
 
    Public Function ReturnStringPath(ByVal dirictorypath As String) As String
        Dim str3 As New StringBuilder
 
        Dim output As String = ""
            Dim standin1 As String = dirictorypath
        Do Until output = "home"
 
            output = dirictoryname1(standin1)
            If Not output = "home" Then
                str3.Insert(0, output + "\")
            End If
            standin1 = dirictoryback(standin1)
        Loop
        dirictorypath = str3.ToString
            Dim d As Integer
            d = dirictorypath.Length
            dirictorypath = dirictorypath.Remove(d - 1, 1)
 
        Return dirictorypath
    End Function
    End Sub
 Private Sub btnsavetxt_Click(sender As Object, e As EventArgs) Handles btnsavetxt.Click
        My.Computer.FileSystem.WriteAllText(Application.StartupPath + "\home\" + Txtenterpath.Text, Txtreadwrite.Text, False)
    End Sub