Added option to just generate a batch script file.

moisespr123 · Dec 5, 2019 · c6e65d2 · c6e65d2
1 parent b3c9567
commit c6e65d2
Show file tree

Hide file tree

Showing 6 changed files with 59 additions and 11 deletions.
diff --git a/PAQCompress/Form1.Designer.vb b/PAQCompress/Form1.Designer.vb
diff --git a/PAQCompress/Form1.vb b/PAQCompress/Form1.vb
@@ -20,6 +20,7 @@
         s_flag.Checked = My.Settings.s_flag
         f_flag.Checked = My.Settings.f_flag
         ShowCMD.Checked = My.Settings.ShowCMD
+        GenerateBatchScriptOnly.Checked = My.Settings.OnlyGenerateBatchFile
         EnableDisableFlags()
         Dim vars As String() = Environment.GetCommandLineArgs
         If vars.Count > 1 Then
@@ -324,14 +325,25 @@
             CompressorToUse = IO.Path.GetDirectoryName(Process.GetCurrentProcess.MainModule.FileName) + "/" + CompressorToUse
             Dim CompressorPath As String = IO.Path.GetDirectoryName(CompressorToUse)
             If IO.File.Exists(CompressorToUse) Then
-                StartButton.Enabled = False
-                SaveLogButton.Enabled = False
-                If ShowCMD.Checked Then
-                    CompressionParameters = "/C " + CompressorToUse + " " + CompressionParameters + " & pause"
-                    CompressorToUse = "cmd.exe"
+                If Not GenerateBatchScriptOnly.Checked Then
+                    StartButton.Enabled = False
+                    SaveLogButton.Enabled = False
+                    If ShowCMD.Checked Then
+                        CompressionParameters = "/C " + CompressorToUse + " " + CompressionParameters + " & pause"
+                        CompressorToUse = "cmd.exe"
+                    End If
+                    Dim StartCompressionThread = New Threading.Thread(Sub() CompressionThread(CompressorToUse, CompressionParameters, CompressorPath))
+                    StartCompressionThread.Start()
+                Else
+                    Dim OutputPath As String
+                    If IO.Directory.Exists(OutputLocation.Text) Then
+                        OutputPath = OutputLocation.Text + "\" + IO.Path.GetFileName(OutputLocation.Text) + ".bat"
+                    Else
+                        OutputPath = IO.Path.ChangeExtension(OutputLocation.Text, ".bat")
+                    End If
+                    IO.File.WriteAllText(OutputPath, CompressorToUse + " " + CompressionParameters + " & pause")
+                    MsgBox("Batch file written to the output location.")
                 End If
-                Dim StartCompressionThread = New Threading.Thread(Sub() CompressionThread(CompressorToUse, CompressionParameters, CompressorPath))
-                StartCompressionThread.Start()
             Else
                 MsgBox("The selected compressor version could not be found. Cannot proceed")
             End If
@@ -521,4 +533,9 @@
         My.Settings.ShowCMD = ShowCMD.Checked
         My.Settings.Save()
     End Sub
+
+    Private Sub GenerateBatchScriptOnly_CheckedChanged(sender As Object, e As EventArgs) Handles GenerateBatchScriptOnly.CheckedChanged
+        My.Settings.OnlyGenerateBatchFile = GenerateBatchScriptOnly.Checked
+        My.Settings.Save()
+    End Sub
 End Class
diff --git a/PAQCompress/My Project/AssemblyInfo.vb b/PAQCompress/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("0.3.27.0")>
-<Assembly: AssemblyFileVersion("0.3.27.0")>
+<Assembly: AssemblyVersion("0.3.28.0")>
+<Assembly: AssemblyFileVersion("0.3.28.0")>
diff --git a/PAQCompress/My Project/Settings.Designer.vb b/PAQCompress/My Project/Settings.Designer.vb
diff --git a/PAQCompress/My Project/Settings.settings b/PAQCompress/My Project/Settings.settings
@@ -44,5 +44,8 @@
     <Setting Name="ShowCMD" Type="System.Boolean" Scope="User">
       <Value Profile="(Default)">False</Value>
     </Setting>
+    <Setting Name="OnlyGenerateBatchFile" Type="System.Boolean" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
   </Settings>
 </SettingsFile>
diff --git a/PAQCompress/app.config b/PAQCompress/app.config
@@ -69,6 +69,9 @@
             <setting name="ShowCMD" serializeAs="String">
                 <value>False</value>
             </setting>
+            <setting name="OnlyGenerateBatchFile" serializeAs="String">
+                <value>False</value>
+            </setting>
         </PAQCompress.My.MySettings>
     </userSettings>
 <startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/></startup></configuration>