Merge pull request #7 from EmberHeartshine/develop

Layout, file numbering, About form updates

MassFileRenamer/My Project/AssemblyInfo.vb

@@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.0.1.0")>
-<Assembly: AssemblyFileVersion("1.0.1.0")>
+<Assembly: AssemblyVersion("1.0.2.0")>
+<Assembly: AssemblyFileVersion("1.0.2.0")>
 <Assembly: NeutralResourcesLanguage("en-US")>

MassFileRenamer/frmAbout.vb

@@ -18,4 +18,8 @@
     Private Sub OKButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OKButton.Click
         Me.Close()
     End Sub
+
+    Private Sub LogoPictureBox_Click(sender As Object, e As EventArgs) Handles LogoPictureBox.Click
+
+    End Sub
 End Class

MassFileRenamer/frmMain.resx

@@ -120,6 +120,9 @@
   <metadata name="dlgOpenFolder.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>17, 17</value>
   </metadata>
+  <metadata name="ToolTip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>150, 17</value>
+  </metadata>
   <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

MassFileRenamer/frmMain.vb

@@ -363,7 +363,7 @@ Public Class frmMain
         MsgBox("Strip X From End Complete!", MsgBoxStyle.Information, "Done!")
     End Sub
 
-    Private Sub BtnProperCase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProperCase.Click
+    Private Sub btnProperCase_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProperCase.Click
         '== Error Checking ==
         If CheckforPathError() = True Then Exit Sub
         '== Error Checking ==
@@ -386,10 +386,41 @@ Public Class frmMain
                 End If
             End If
         Next fileNameToProcess
-        MsgBox("Search and Remove Complete!", MsgBoxStyle.Information, "Done!")
+        MsgBox("Proper Casing Complete!", MsgBoxStyle.Information, "Done!")
     End Sub
 
     Private Sub btnAbout_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAbout.Click
         frmAbout.Show()
     End Sub
+
+    Private Sub btnEnumerate_Click(sender As Object, e As EventArgs) Handles btnEnumerate.Click
+        '== Error Checking ==
+        If CheckforPathError() = True Then Exit Sub
+        '== Error Checking ==
+        Dim JustFileName As String
+        Dim attributes As FileAttributes
+        Dim fileIndex = 1
+        Dim leadingZeroes
+        GetFileArray()
+        leadingZeroes = "D" & FileList.Length.ToString.Length.ToString
+        For Each fileNameToProcess In FileList
+            attributes = File.GetAttributes(fileNameToProcess)
+            If (attributes And FileAttributes.System) = FileAttributes.System Then
+                ' ALWAYS Ignore SYSTEM files
+            Else
+                If (attributes And FileAttributes.Hidden) = FileAttributes.Hidden Then
+                    ' ALWAYS Ignore Hidden files
+                Else
+                    JustFileName = ExtractFileNamefromPath(fileNameToProcess)
+                    JustFileName = fileIndex.ToString(leadingZeroes) & "-" & JustFileName
+                    If CheckifFileExists(txtDirectory.Text, fileNameToProcess, JustFileName) Then
+                        JustFileName = Path.GetFileNameWithoutExtension(JustFileName) & "_" & Path.GetExtension(JustFileName)
+                    End If
+                    System.IO.File.Move(fileNameToProcess, txtDirectory.Text & "\" & JustFileName)
+                End If
+            End If
+            fileIndex += 1
+        Next fileNameToProcess
+        MsgBox("File Numbering Complete!", MsgBoxStyle.Information, "Done!")
+    End Sub
 End Class