Hello There, Guest!
View New Posts  |  View Today's Posts
[VB.Net] Snippet Safe v0.9 - Coded by AceInfinity [New Improved Version]

  • 0 Vote(s) - 0 Average


12-27-2011, 07:43 AM #1
AceInfinity
Developer
*******
Administrators
Posts: 9,733 Threads:1,026 Joined: Jun 2011 Reputation: 76

Snippet Safe v0.9 - Coded by AceInfinity [New Improved Version]
Snippet Save V0.8 Preview



Changelog (For v0.8):
  • - Sorted Listview Items/(Code Snippets) by Language in right hand column
    - Added more organized storage
    - Added ptionality to save as previously saved language or add snippet from new language not saved before by combobox
    - View/Sort display by Language in Listview
    - Added Open Code Directory Button

Enjoy my new version :)

Source Code:
FormMain.vb
Code:
Option Strict On
Imports System
Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Threading

Public Class FormMain
    Delegate Sub Del_UpdateSavedList_(ByVal arg As Object)
    Public Sub Del_UpdateSavedList(ByVal arg As Object)
        If InvokeRequired Then
            Invoke(New Del_UpdateSavedList_(AddressOf Del_UpdateSavedList), arg)
            Exit Sub
        End If
        UpdateSavedList()
    End Sub

    Private Sub FormMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim thread As New Thread(AddressOf Del_UpdateSavedList)
        thread.Start()

        ComboBox1.SelectedIndex = 0
        PreviousIndex = 0
        CodeSelectView()
    End Sub

    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ListView1.MouseDoubleClick
        EditSnippetValues()
    End Sub

    Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged
        Try
            Dim Selected_File As String = CStr(ListView1.SelectedItems.Item(0).Tag)
            Dim sr As New StreamReader(Selected_File)
            Dim FullStr As String = sr.ReadToEnd()
            Dim Regex_ As String
            Dim str As MatchCollection

            Regex_ = "(?<=\<name\>).*?(?=\<\/name\>)"
            str = Regex.Matches(FullStr, Regex_)
            For Each m As Match In str
                TextBox1.Text = m.Groups(0).Value
                If m.Groups(0).Value = String.Empty Then TextBox1.Text = ""
            Next

            Regex_ = "(?<=\<lang\>).*?(?=\<\/lang\>)"
            str = Regex.Matches(FullStr, Regex_)
            For Each m As Match In str
                TextBox2.Text = m.Groups(0).Value
                If m.Groups(0).Value = String.Empty Then TextBox1.Text = ""
            Next

            Regex_ = "(?<=\<description\>).*?(?=\<\/description\>)"
            str = Regex.Matches(FullStr, Regex_)
            For Each m As Match In str
                Dim Str_Formatted As String = m.Groups(0).Value
                Str_Formatted = Str_Formatted.Replace("{NewLineBreak}", vbLf)
                TextBox4.Text = Str_Formatted
                If m.Groups(0).Value = String.Empty Then TextBox1.Text = ""
            Next

            Regex_ = "(?<=\<creator\>).*?(?=\<\/creator\>)"
            str = Regex.Matches(FullStr, Regex_)
            For Each m As Match In str
                Dim Str_Formatted As String = m.Groups(0).Value
                Str_Formatted = Str_Formatted.Replace("{NewLineBreak}", vbLf)
                TextBox5.Text = Str_Formatted
                If m.Groups(0).Value = String.Empty Then TextBox1.Text = ""
            Next

            Regex_ = "(?<=\<copyright\>).*?(?=\<\/copyright\>)"
            str = Regex.Matches(FullStr, Regex_)
            For Each m As Match In str
                TextBox6.Text = m.Groups(0).Value
                If m.Groups(0).Value = String.Empty Then TextBox1.Text = ""
            Next

            sr.Close()

            TextBox3.Text = CStr(File.GetLastWriteTime(Selected_File))
        Catch ex As Exception

        End Try

    End Sub

#Region "Listview Context Menu"
    Private Sub ContextMenuStrip1_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
        If ListView1.SelectedItems.Count < 1 Then
            DeleteSnippetToolStripMenuItem.Enabled = False
            EditSnippetToolStripMenuItem.Enabled = False
        Else
            DeleteSnippetToolStripMenuItem.Enabled = True
            EditSnippetToolStripMenuItem.Enabled = True
        End If
    End Sub

    Private Sub RefreshListToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshListToolStripMenuItem.Click
        Dim thread As New Thread(AddressOf Del_UpdateSavedList)
        thread.Start()
    End Sub

    Private Sub AddNewSnippetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddNewSnippetToolStripMenuItem.Click
        FormViewSnippet.Show()
        Me.Hide()
        ClearTextboxes()
        EditFilePath = "EDIT"
    End Sub

    Private Sub DeleteSnippetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteSnippetToolStripMenuItem.Click
        Try
            File.Delete(CStr(ListView1.SelectedItems.Item(0).Tag))
            Dim thread As New Thread(AddressOf Del_UpdateSavedList)
            thread.Start()
        Catch ex As IOException
            MessageBox.Show("The file may be open in another program, please close the file before trying to remove it.", "Error - File open in another program", _
                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        Catch ex2 As Exception
            MessageBox.Show("An unknown error had occurred.", "Error - Unknown", _
                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
    End Sub

    Private Sub EditSnippetToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditSnippetToolStripMenuItem.Click
        EditSnippetValues()
    End Sub
#End Region

    Private Sub OpenDirectoryToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenDirectoryToolStripMenuItem.Click
        Process.Start(Application.StartupPath & "\Code Snippets")
    End Sub

    Public PreviousIndex As Integer
    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex <> PreviousIndex Then
            PreviousIndex = ComboBox1.SelectedIndex
            CodeSelectView()
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Not Directory.Exists(Code_Dir) Then Directory.CreateDirectory(Code_Dir)
        Process.Start(Code_Dir)
    End Sub
End Class

FormViewSnippet.vb
Code:
Option Strict On

Imports System
Imports System.IO
Imports System.Threading

Public Class FormViewSnippet

    Delegate Sub Del_UpdateSavedList_(ByVal arg As Object)
    Private Sub Del_UpdateSavedList(ByVal arg As Object)
        If InvokeRequired Then
            Invoke(New Del_UpdateSavedList_(AddressOf Del_UpdateSavedList), arg)
            Exit Sub
        End If
        UpdateSavedList()
    End Sub

    Private Sub FormViewSnippet_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add("-- Select Existing Language --")
        For Each ObjLangDir As String In Directory.GetDirectories(Code_Dir)
            Me.ComboBox1.Items.Add(ObjLangDir.Substring(ObjLangDir.LastIndexOf("\") + 1))
        Next
        ComboBox1.SelectedIndex = 0
    End Sub

    Private Sub FormViewSnippet_Closing(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Closing
        FormMain.Show()
    End Sub

    Delegate Sub Del_FindUsableSave_(ByVal arg As Object)
    Private Sub Del_FindUsableSave(ByVal arg As Object)
        If InvokeRequired Then
            Invoke(New Del_FindUsableSave_(AddressOf Del_FindUsableSave), arg)
            Exit Sub
        End If
        FindUsableSave()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim t As New Thread(AddressOf Del_FindUsableSave)
        t.Start()

        TextBox2.Enabled = True
        FormMain.Show()
        Me.Hide()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ClearTextboxes()
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.SelectedIndex <> 0 Then
            TextBox2.Text = ComboBox1.SelectedItem.ToString()
            TextBox2.Enabled = False
        Else
            TextBox2.Text = String.Empty
            TextBox2.Enabled = True
        End If
    End Sub

    Private Sub FormViewSnippet_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
        If Me.Visible = True Then
            ComboBox1.Items.Clear()
            ComboBox1.Items.Add("-- Select Existing Language --")
            For Each ObjLangDir As String In Directory.GetDirectories(Code_Dir)
                ComboBox1.Items.Add(ObjLangDir.Substring(ObjLangDir.LastIndexOf("\") + 1))
            Next
            ComboBox1.SelectedIndex = 0
        End If
    End Sub

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        Dim NonPermitted As String = "\/:*?" & Chr(34) & "<>|"
        If NonPermitted.IndexOf(e.KeyChar) <> -1 Then
            e.Handled = True
        End If
    End Sub
End Class

Functions.vb [Module]
Code:
Option Strict On

Imports System.IO
Imports System.Text.RegularExpressions
Imports System.Threading

Module Functions

    Public EditFilePath As String
    Public Code_Dir As String = Application.StartupPath & "\Code Snippets"

    Public LV_Array() As String
    Public Name_, Language_, LastUpdated_, Creator_, Copyright_, Description_, Code_ As String

    Public File_Count As Double = Nothing
    Public Sub CheckForSnippets()
        If Not Directory.Exists(Code_Dir) Then
            Directory.CreateDirectory(Code_Dir)
            MessageBox.Show("You currently have no snippets stored in " & Code_Dir, "Empty Data", _
                                MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Else
            For Each ObjDir As String In Directory.GetDirectories(Code_Dir)
                Dim File_Test() = Directory.GetFiles(ObjDir)
                File_Count += File_Test.Length
            Next

            If File_Count = 0 Then
                MessageBox.Show("You currently have no snippets stored in " & Code_Dir, "Empty Data", _
                                MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
            End If
        End If
    End Sub

    Public Sub UpdateSavedList()

        FormMain.ListView1.Items.Clear()
        FormMain.ComboBox1.Items.Clear()
        FormMain.ComboBox1.Items.Add("-- View All --")
        FormMain.TextBox1.Clear()
        FormMain.TextBox2.Clear()
        FormMain.TextBox3.Clear()
        FormMain.TextBox4.Clear()
        FormMain.TextBox5.Clear()
        FormMain.TextBox6.Clear()

        'Test if any snippets are stored
        CheckForSnippets()

        'Get names of all subdirs in Code Folder
        For Each ObjLangDir As String In Directory.GetDirectories(Code_Dir)
            FormMain.ComboBox1.Items.Add(ObjLangDir.Substring(ObjLangDir.LastIndexOf("\") + 1))
        Next

        For Each ObjDir As String In Directory.GetDirectories(Code_Dir)
            For Each File_ In Directory.GetFiles(ObjDir)
                Dim sr As New StreamReader(File_)
                Dim FullStr As String = sr.ReadToEnd()
                Dim Regex_ As String
                Dim str As MatchCollection

                Regex_ = "(?<=\<name\>).*?(?=\<\/name\>)"
                str = Regex.Matches(FullStr, Regex_)
                For Each m As Match In str
                    Name_ = m.Groups(0).Value
                Next

                Regex_ = "(?<=\<lang\>).*?(?=\<\/lang\>)"
                str = Regex.Matches(FullStr, Regex_)
                For Each m As Match In str
                    Language_ = m.Groups(0).Value
                Next

                sr.Close()

                LV_Array = {Name_, Language_}
                Dim ListVItem As ListViewItem = New ListViewItem(LV_Array)
                ListVItem.Tag = File_

                FormMain.ListView1.Items.Add(ListVItem)
            Next
        Next
    End Sub

    Public Sub CodeSelectView()
        FormMain.ListView1.Items.Clear()
        If Not Directory.Exists(Code_Dir) Then
            Directory.CreateDirectory(Code_Dir)
        End If
        Select Case FormMain.ComboBox1.SelectedIndex
            Case Is = 0
                'Get all Codes
                For Each ObjDir As String In Directory.GetDirectories(Code_Dir)
                    For Each File_ In Directory.GetFiles(ObjDir)
                        Dim sr As New StreamReader(File_)
                        Dim FullStr As String = sr.ReadToEnd()
                        Dim Regex_ As String
                        Dim str As MatchCollection

                        Regex_ = "(?<=\<name\>).*?(?=\<\/name\>)"
                        str = Regex.Matches(FullStr, Regex_)
                        For Each m As Match In str
                            Name_ = m.Groups(0).Value
                        Next

                        Regex_ = "(?<=\<lang\>).*?(?=\<\/lang\>)"
                        str = Regex.Matches(FullStr, Regex_)
                        For Each m As Match In str
                            Language_ = m.Groups(0).Value
                        Next

                        sr.Close()

                        LV_Array = {Name_, Language_}
                        Dim ListVItem As ListViewItem = New ListViewItem(LV_Array)
                        ListVItem.Tag = File_

                        FormMain.ListView1.Items.Add(ListVItem)
                    Next
                Next
            Case Else
                'Get codes from selected language
                For Each File_ In Directory.GetFiles(Code_Dir & "\" & FormMain.ComboBox1.SelectedItem.ToString)
                    Dim sr As New StreamReader(File_)
                    Dim FullStr As String = sr.ReadToEnd()
                    Dim Regex_ As String
                    Dim str As MatchCollection

                    Regex_ = "(?<=\<name\>).*?(?=\<\/name\>)"
                    str = Regex.Matches(FullStr, Regex_)
                    For Each m As Match In str
                        Name_ = m.Groups(0).Value
                    Next

                    Regex_ = "(?<=\<lang\>).*?(?=\<\/lang\>)"
                    str = Regex.Matches(FullStr, Regex_)
                    For Each m As Match In str
                        Language_ = m.Groups(0).Value
                    Next

                    sr.Close()

                    LV_Array = {Name_, Language_}
                    Dim ListVItem As ListViewItem = New ListViewItem(LV_Array)
                    ListVItem.Tag = File_

                    FormMain.ListView1.Items.Add(ListVItem)
                Next
        End Select
    End Sub

    Public Sub EditSnippetValues()
        ClearTextboxes()
        EditFilePath = CStr(FormMain.ListView1.SelectedItems.Item(0).Tag)
        Dim sr As New StreamReader(CStr(FormMain.ListView1.SelectedItems.Item(0).Tag))
        Dim FullStr As String = sr.ReadToEnd()
        Dim Regex_ As String
        Dim str As MatchCollection

        Regex_ = "(?<=\<name\>).*?(?=\<\/name\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            FormViewSnippet.TextBox1.Text = m.Groups(0).Value
        Next

        Regex_ = "(?<=\<lang\>).*?(?=\<\/lang\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            FormViewSnippet.TextBox2.Text = m.Groups(0).Value
        Next

        Regex_ = "(?<=\<creator\>).*?(?=\<\/creator\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            FormViewSnippet.TextBox3.Text = m.Groups(0).Value
        Next

        Regex_ = "(?<=\<copyright\>).*?(?=\<\/copyright\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            FormViewSnippet.TextBox4.Text = m.Groups(0).Value
        Next

        Regex_ = "(?<=\<description\>).*?(?=\<\/description\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            Dim Str_Formatted As String = m.Groups(0).Value
            Str_Formatted = Str_Formatted.Replace("{NewLineBreak}", vbLf)
            FormViewSnippet.TextBox5.Text = Str_Formatted
        Next

        Regex_ = "(?<=\<snippet\>).*?(?=\<\/snippet\>)"
        str = Regex.Matches(FullStr, Regex_)
        For Each m As Match In str
            Dim Str_Formatted As String = m.Groups(0).Value
            Str_Formatted = Str_Formatted.Replace("{NewLineBreak}", vbLf)
            FormViewSnippet.TextBox6.Text = Str_Formatted
        Next

        sr.Close()

        FormViewSnippet.Show()
        FormMain.Hide()
    End Sub

    Public FileNum As Double = 1
    Private SavePath As String = Nothing
    Public Sub FindUsableSave()
        Try
            If EditFilePath <> "EDIT" Then
                SavePath = EditFilePath
            Else
                While File.Exists(Application.StartupPath & "\Code Snippets\" & FormViewSnippet.TextBox2.Text & "\Code" & FileNum & ".snp")
                    FileNum += 1
                End While
                SavePath = Application.StartupPath & "\Code Snippets\" & FormViewSnippet.TextBox2.Text & "\Code" & FileNum & ".snp"
                If Not Directory.Exists(Application.StartupPath & "\Code Snippets\" & FormViewSnippet.TextBox2.Text & "\") Then
                    Directory.CreateDirectory(Application.StartupPath & "\Code Snippets\" & FormViewSnippet.TextBox2.Text & "\")
                End If
            End If

            Dim sw As New StreamWriter(SavePath)
            sw.Write(SaveCodeData(FormViewSnippet.TextBox1.Text, FormViewSnippet.TextBox2.Text, FormViewSnippet.TextBox3.Text, FormViewSnippet.TextBox4.Text, FormViewSnippet.TextBox5.Text, FormViewSnippet.TextBox6.Text))
            sw.Close()

            MessageBox.Show("Code snippet has been saved successfully!", "Save Successful", _
                            MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
        Catch ex As Exception
            MessageBox.Show("An unknown error had occurred.", "Error - Unknown", _
                            MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
        End Try
        EditFilePath = "EDIT"

        Dim thread As New Threading.Thread(AddressOf FormMain.Del_UpdateSavedList)
        thread.Start()
    End Sub

    Public Function SaveCodeData(ByVal SnippetName As String, _
                                 ByVal Language As String, _
                                 ByVal Creator As String, _
                                 ByVal Copyright As String, _
                                 ByVal Description As String, _
                                 ByVal Snippet As String) As String

        Dim FileStr As String = Nothing
        Description = Description.Replace(vbLf, "{NewLineBreak}")
        Snippet = Snippet.Replace(vbLf, "{NewLineBreak}")

        FileStr = "<name>" & SnippetName & "</name>" & vbNewLine & _
            "<lang>" & Language & "</lang>" & vbNewLine & _
            "<creator>" & Creator & "</creator>" & vbNewLine & _
            "<copyright>" & Copyright & "</copyright>" & vbNewLine & _
            "<description>" & Description & "</description>" & vbNewLine & _
            "<snippet>" & Snippet & "</snippet>"

        Return FileStr
    End Function

    Public Sub ClearTextboxes()
        For Each Obj As Control In FormViewSnippet.Controls
            If TypeOf Obj Is TextBox Then Obj.Text = String.Empty
        Next
    End Sub

End Module

*Download In Attachment Below*


Attached Files
.zip   Snippet Save v0.8.zip (Size: 30.47 KB / Downloads: 10)
.zip   Snippet Save v0.8 (Fixed Minor Bug).zip (Size: 30.77 KB / Downloads: 17)
.exe   Snippet Safe v0.9.exe (Size: 94.5 KB / Downloads: 40)
This post was last modified: 01-06-2012, 10:40 PM by AceInfinity.


Microsoft MVP .NET Programming - (2012 - Present)
®Crestron DMC-T Certified Automation Programmer

Development Site: aceinfinity.net

 ▲
 ▲ ▲

12-27-2011, 08:51 AM #2
simx
Member
**
Posts: 233 Threads:37 Joined: Jun 2011 Reputation: 4

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
WOW thanks Ace!!!

Another great edition!

12-27-2011, 09:12 AM #3
AceInfinity
Developer
*******
Administrators
Posts: 9,733 Threads:1,026 Joined: Jun 2011 Reputation: 76

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
No problem, I hope you enjoy this one, i'm out of ideas for this particular project for a while, i'll come up with a few other things later on. Maybe backup creation for the code repository?


Microsoft MVP .NET Programming - (2012 - Present)
®Crestron DMC-T Certified Automation Programmer

Development Site: aceinfinity.net

 ▲
 ▲ ▲

12-27-2011, 09:37 AM #4
ThePrinCe
Member
**
Posts: 87 Threads:35 Joined: Jun 2011 Reputation: 4

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
Thanks For The share budy :).

12-27-2011, 09:45 AM #5
AceInfinity
Developer
*******
Administrators
Posts: 9,733 Threads:1,026 Joined: Jun 2011 Reputation: 76

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
No problem :) You're at the post count to be able to download all of what's available on TLF now Prince, so check some of the stuff out :)

~AceInfinity


Microsoft MVP .NET Programming - (2012 - Present)
®Crestron DMC-T Certified Automation Programmer

Development Site: aceinfinity.net

 ▲
 ▲ ▲

12-27-2011, 10:54 AM #6
KoBE
¯\_(ツ)_/¯
******
Global Moderators
Posts: 4,862 Threads:494 Joined: Jun 2011 Reputation: 67

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
Pretty nice work there Ace. You might think about adding the option to sort by either language or title. Maybe have it default to language, but make the columns clickable to allow sorting.

12-27-2011, 01:28 PM #7
FizzyPenthos
Member
**
Posts: 137 Threads:16 Joined: Nov 2011 Reputation: 8

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
Looking great Ace nice improvements on the original.

Keep it up! ^^
My house

12-29-2011, 05:08 AM #8
Morpheus
Member
**
Posts: 228 Threads:44 Joined: Sep 2011 Reputation: 5

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]


Hi Ace.

I found a small bug
('I suggest' ) instead of creating a folder at the very beginning of the program when you press the button: 'Open the code repository' is made a search routine that the folder exists, case = False, create it (if you accidentally delete the folder program enters in crash)

But I liked your work with this program, very simple and organized, very good!
I advise everyone to use it.



This post was last modified: 12-29-2011, 05:25 AM by Morpheus.


Great coders aren't born. They're compiled and released.
Expert coders do not need a keyboard. They just throw magnets at the RAM chips.

12-29-2011, 05:53 AM #9
AceInfinity
Developer
*******
Administrators
Posts: 9,733 Threads:1,026 Joined: Jun 2011 Reputation: 76

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
Ahh I see what you mean now... Working on a patched version right now. :)

Edit: Added this:
Code:
If Not Directory.Exists(Code_Dir) Then Directory.CreateDirectory(Code_Dir)

Download Available Below. Thankyou Morpheus :)


Attached Files
.zip   Snippet Save v0.8.zip (Size: 30.77 KB / Downloads: 1)


Microsoft MVP .NET Programming - (2012 - Present)
®Crestron DMC-T Certified Automation Programmer

Development Site: aceinfinity.net

 ▲
 ▲ ▲

12-29-2011, 07:47 AM #10
KoBE
¯\_(ツ)_/¯
******
Global Moderators
Posts: 4,862 Threads:494 Joined: Jun 2011 Reputation: 67

RE: Snippet Safe v0.8 - Coded by AceInfinity [New Improved Version]
Shouldn't that change the version to v0.8.1 :P

Nice find there Morpheus.




Forum Jump:


Possibly Related Threads...
Thread Author Replies Views Last Post
   How do you convert date to string and format it for short version "d"? william7 14 7,207 03-04-2013, 11:15 PM
Last Post: AceInfinity
   Graph Component - Developed by AceInfinity AceInfinity 3 2,044 12-29-2012, 09:18 AM
Last Post: AceInfinity
   Smart Keys Genius - Developed by AceInfinity AceInfinity 2 2,256 08-23-2012, 10:57 AM
Last Post: Morpheus
   My Snippet - Using StreamReader To Read Chunks Of Data AceInfinity 13 10,685 08-22-2012, 12:40 AM
Last Post: _HAWK_
   MDIChildForm Demo - Coded by Ace AceInfinity 11 7,348 07-27-2012, 12:00 AM
Last Post: AceInfinity


Users browsing this thread: 1 Guest(s)