From 7bc7981972e71557685f8a1ec80e4c0127a722ca Mon Sep 17 00:00:00 2001 From: Micharl Farrell Date: Tue, 7 Apr 2020 22:39:58 +0100 Subject: [PATCH] Add project files. --- App.config | 30 +++++ DragAndDropMultipleFiles.sln | 25 ++++ DragAndDropMultipleFiles.vbproj | 129 +++++++++++++++++++++ My Project/Application.Designer.vb | 38 +++++++ My Project/Application.myapp | 10 ++ My Project/AssemblyInfo.vb | 35 ++++++ My Project/Resources.Designer.vb | 62 ++++++++++ My Project/Resources.resx | 117 +++++++++++++++++++ My Project/Settings.Designer.vb | 133 ++++++++++++++++++++++ My Project/Settings.settings | 21 ++++ Testing/trunc.exe | Bin 0 -> 6656 bytes frmMain.Designer.vb | 144 +++++++++++++++++++++++ frmMain.resx | 177 +++++++++++++++++++++++++++++ frmMain.vb | 62 ++++++++++ utilities-terminal.ico | Bin 0 -> 2883 bytes 15 files changed, 983 insertions(+) create mode 100644 App.config create mode 100644 DragAndDropMultipleFiles.sln create mode 100644 DragAndDropMultipleFiles.vbproj create mode 100644 My Project/Application.Designer.vb create mode 100644 My Project/Application.myapp create mode 100644 My Project/AssemblyInfo.vb create mode 100644 My Project/Resources.Designer.vb create mode 100644 My Project/Resources.resx create mode 100644 My Project/Settings.Designer.vb create mode 100644 My Project/Settings.settings create mode 100644 Testing/trunc.exe create mode 100644 frmMain.Designer.vb create mode 100644 frmMain.resx create mode 100644 frmMain.vb create mode 100644 utilities-terminal.ico diff --git a/App.config b/App.config new file mode 100644 index 0000000..fea2953 --- /dev/null +++ b/App.config @@ -0,0 +1,30 @@ + + + + +
+ + + + + + + + + + + + + + + False + + + False + + + + + + + \ No newline at end of file diff --git a/DragAndDropMultipleFiles.sln b/DragAndDropMultipleFiles.sln new file mode 100644 index 0000000..c938a49 --- /dev/null +++ b/DragAndDropMultipleFiles.sln @@ -0,0 +1,25 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.28729.10 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DragAndDropMultipleFiles", "DragAndDropMultipleFiles.vbproj", "{66095876-1FB7-4614-AFA8-F091F29F4914}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Release|Any CPU = Release|Any CPU + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {66095876-1FB7-4614-AFA8-F091F29F4914}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {66095876-1FB7-4614-AFA8-F091F29F4914}.Debug|Any CPU.Build.0 = Debug|Any CPU + {66095876-1FB7-4614-AFA8-F091F29F4914}.Release|Any CPU.ActiveCfg = Release|Any CPU + {66095876-1FB7-4614-AFA8-F091F29F4914}.Release|Any CPU.Build.0 = Release|Any CPU + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {BA272BA2-D3E0-412E-872B-B0E33AC50F7E} + EndGlobalSection +EndGlobal diff --git a/DragAndDropMultipleFiles.vbproj b/DragAndDropMultipleFiles.vbproj new file mode 100644 index 0000000..1858d4f --- /dev/null +++ b/DragAndDropMultipleFiles.vbproj @@ -0,0 +1,129 @@ + + + + + Debug + AnyCPU + {66095876-1FB7-4614-AFA8-F091F29F4914} + WinExe + DragAndDropMultipleFiles.My.MyApplication + DragAndDropMultipleFiles + DragAndDropMultipleFiles + 512 + WindowsForms + v4.7.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + DragAndDropMultipleFiles.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + DragAndDropMultipleFiles.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + utilities-terminal.ico + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + frmMain.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + frmMain.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + + + \ No newline at end of file diff --git a/My Project/Application.Designer.vb b/My Project/Application.Designer.vb new file mode 100644 index 0000000..cb89495 --- /dev/null +++ b/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.DragAndDropMultipleFiles.frmMain + End Sub + End Class +End Namespace diff --git a/My Project/Application.myapp b/My Project/Application.myapp new file mode 100644 index 0000000..739ea6f --- /dev/null +++ b/My Project/Application.myapp @@ -0,0 +1,10 @@ + + + true + frmMain + false + 0 + true + 0 + true + \ No newline at end of file diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..04af598 --- /dev/null +++ b/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' General Information about an assembly is controlled through the following +' set of attributes. Change these attribute values to modify the information +' associated with an assembly. + +' Review the values of the assembly attributes + + + + + + + + + + +'The following GUID is for the ID of the typelib if this project is exposed to COM + + +' Version information for an assembly consists of the following four values: +' +' Major Version +' Minor Version +' Build Number +' Revision +' +' You can specify all the values or you can default the Build and Revision Numbers +' by using the '*' as shown below: +' + + + diff --git a/My Project/Resources.Designer.vb b/My Project/Resources.Designer.vb new file mode 100644 index 0000000..082cf9e --- /dev/null +++ b/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DragAndDropMultipleFiles.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/My Project/Resources.resx b/My Project/Resources.resx new file mode 100644 index 0000000..af7dbeb --- /dev/null +++ b/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/My Project/Settings.Designer.vb b/My Project/Settings.Designer.vb new file mode 100644 index 0000000..a2f62d1 --- /dev/null +++ b/My Project/Settings.Designer.vb @@ -0,0 +1,133 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + + _ + Public Property Exec() As String + Get + Return CType(Me("Exec"),String) + End Get + Set + Me("Exec") = value + End Set + End Property + + _ + Public Property Param() As String + Get + Return CType(Me("Param"),String) + End Get + Set + Me("Param") = value + End Set + End Property + + _ + Public Property CleafAfterExec() As Boolean + Get + Return CType(Me("CleafAfterExec"),Boolean) + End Get + Set + Me("CleafAfterExec") = value + End Set + End Property + + _ + Public Property ClearAfterDrag() As Boolean + Get + Return CType(Me("ClearAfterDrag"),Boolean) + End Get + Set + Me("ClearAfterDrag") = value + End Set + End Property + + _ + Public Property List() As String + Get + Return CType(Me("List"),String) + End Get + Set + Me("List") = value + End Set + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.DragAndDropMultipleFiles.My.MySettings + Get + Return Global.DragAndDropMultipleFiles.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/My Project/Settings.settings b/My Project/Settings.settings new file mode 100644 index 0000000..4ce2315 --- /dev/null +++ b/My Project/Settings.settings @@ -0,0 +1,21 @@ + + + + + + + + + + + + False + + + False + + + + + + \ No newline at end of file diff --git a/Testing/trunc.exe b/Testing/trunc.exe new file mode 100644 index 0000000000000000000000000000000000000000..643a7fa246fbece9ce278b67c6c414891b5ffac0 GIT binary patch literal 6656 zcmeHLeQZsctXDd;cGZv&YUF9Es!r;vs*T!e7|clNXp5>TV{5jhTUMC`b=g{xR89N#yVo|j zjP{Rdnx?JSI_KPbzV12ae!Ta*{o$j;KnO7cG>wp9P}*z^e?1z9c;U*|7Lu3ey}fE! z*YftNR>3cEQ8CgZxUz$^Vqq`wOGH{2qb&%0=$56VjqH zlKYMYn{&KzV$dznnFyH=PGN?7;bzcc07u8ROkba=3+2%Iu;u{9U{EHkZcLHdQDa80 z5~f~qJ0bP7XCveV9b?@PjdO%7zo8_<9A9=w2pCC;Z7tQr*5*b5| zkiC_n*DbqIqq*RLL8$&hKwh(9>dK57IZQW86#%s%w*c~*jgVxeD2X2MSgv3&y;9J; zX1gwxJkdAZ|8NB!QZL6QW@48MV~?8*&bIc)ZxxKIY(z7^%-KlnjB!|pfLwbXQUAO< zr7DH$R+B?BzX+MS!w7MJ2nV4MFa!v?=-GCv7vrs#D$QI-m0B$&yVMzVtI_EYYMI|* z=C?SeY04_iT#S)J=*yeY^rabFEG5+QPG`GjHbHkVdCltRS6M-qT&Mfo*XSCdE4-Pf zV07)VCRxUHMWo6`6#d7kOFz{UA}qMYM$#v6jE1~c8yPWLRzs}S?8P8KyTWpcIEqTC z#QYq5$Ig@tCKDAHKW++`(k~kb=}ZNRh2b(dGtMEz`hI-(tapf>5;ba!@18i>2ZvY; z&0Gunx|F=M?yO?6UfCK~CMJu8G(2eLdWa@}3+9jvZ79qStW394=aY4eg<7qS*HED_ z23_F-Q2NOND0B`c-2bKaH-=c&;dYUE@_BL&o#9-13> zPben3BsNGlt~dm?yi}kh9Yk@c`}xj*-l>@>Z-^E}EqWTdah+B}M_LW7kyb;Cl&TwwuLHei$e2>Po1vT9Q2#kY?;cBThtZk;KWPpkHErfq#ct3Ma|&$3u( z3d$VK{9}x=84gj$>2U;>@(nc5yJ!2uveBBH+&NT_!2lk4*o1gaD3gm`JzPpzpDw_* zmzRO+!Twcj_z<`Ydw*#?xAE`{x|54z!!lzHQ&t+?ML#^Ho(kv^G=9ze24^DyO*40a zc6KHXpbUwFK$^J&9JMHje%z#)TiHlpqag1xt8J;)fCrMQQWW^ z*!P6FgOQ>ZMpjfXQea`EoMU9oa**TSFK~dUc9Ljf)R@=?dc32ij9b(C>!6n6>ROxdlSo`=(@+Q-s*gp09sBT1^k`}3Ra7y*sh1gkR-L&{O*B+|#BGsYjt8`F> zNKatOZ+lK8@PZ9-dZM$9hx= z&oR{EA=PeL!>)pigw`*1#so>7YO|b5ubjRR8`otEuWq06#*3(%&fLS1T~#{kdkwfO zlZ&1{t)8Y=RaW1c{AUZ)@+fMll|KQTiC(LrE>WZ6c+gUO1n{l#Yl+Mv5yY=4Gpco{(oxtd!le~wI8JLz61&IjSP#h8sAy!0P2SL{q_stpMnXgzeqdZjJ>YsM}_;zez= zrIUqcHD_=J#)22=99=?e*ZpeOgX9kI{g zI5r_gRhhLaGn%;see0BFF3r;Aj3Nu@aa7O#iPb)3ovNEw=KlOac%ED^_^~oqJ$q`r zc)?V>hQ>ZU8n2-f>~TGEE~S-wVWyP}39~_!LH7=k8ZM& zW#((++_#?|3KF2A41jMn`aq%&Dn)Yl@SC_hWqhZ4D)~O1^ZA2(*d5ArB>!Xlom>Sz zV7vQeUb>5ZNfDWdq@VannDpSYNhT47MWTS?LEi^iknrf0V@{5^p+oy#_R&d*T@)iC z7m4y=f4GOuw}~tF&d>5Cp5J$4zARHdANFz)U!ECpDjp9nNvkSZyO+gCO>mlSu9lVru~k8ta%s%pCMXF-7X$WoWc2YI)|cV!kK>g~=1{lSt9y<7 zSIWDPrF47(>;4jeww(NYo}BW}XZJ-;elbtpj0ebWfa7+mnQ30^Gb|iAp2s^1UJH0P zYX1x8so3D;Wqa8Bpl>VA0U_0-F&L5fZCG9mms2SfI3oVA%!~FuoOaSE@@|=@>~`{~ z?tWfwaZ57WspZ%eB9UmqTuU*e&+pAXn>Lo{a2}E~Dfpt`1L>Mu))2m@y+I zI#~L{ewh#V;?EGhi}s-qB8#u}T|8-mzew2U?~w&$;|)eUZsa?Od9kS#2?lOi;6;&; zn-Q5eph&XI=k>$qJJ5-`U>&0WZ{c>!jD4Ari0Hx|2wc%j$w)fm)8&pvU2=aE7Ea79 z$}TV8t@QNpqDzQG_7T!Z?xk@eVVSqtI=6ImJWM_|xRfwr+eePU3rZRZvoyb}cQI~- z!Ik9*I{5q2yx*a9^6*jFC9uU5t1~f&$r4(L-pD@QwcjmEkuV|mvuemi9}9z$y`4Tl(^7ZoA*(OuH0h$60z z95ZZqD4dCm&VV@mk#Ke~$+zjg`%3XfeY4b*EuKTYAg=-jP-&pyV$6Du#4R<`)fUQ|Din~f0cwR^Es~G%i~4Ki%Ybhjq^D2mh3!P0Ytf(n_(dP<$jLdunlE+0$A6T zarCvWp=^6Dg37i=JZ&0xwU%+cxp`|Vt14@%HmuuFxnVsl@QOljtcbWp^ayx}cw|L{ zi@w_RkSX0kzvltIzZF*}4cX_Z?Y4Grbg$*t*7DZwvd#7PTpv#^g?n;YeL08vt9+L2 WHT%tuElo|$JMQo3$ael6<9`5{3O?`v literal 0 HcmV?d00001 diff --git a/frmMain.Designer.vb b/frmMain.Designer.vb new file mode 100644 index 0000000..0d3d44d --- /dev/null +++ b/frmMain.Designer.vb @@ -0,0 +1,144 @@ + _ +Partial Class frmMain + Inherits System.Windows.Forms.Form + + 'Form overrides dispose to clean up the component list. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Required by the Windows Form Designer + Private components As System.ComponentModel.IContainer + + 'NOTE: The following procedure is required by the Windows Form Designer + 'It can be modified using the Windows Form Designer. + 'Do not modify it using the code editor. + _ + Private Sub InitializeComponent() + Me.components = New System.ComponentModel.Container() + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) + Me.txtParams = New System.Windows.Forms.TextBox() + Me.txtCmd = New System.Windows.Forms.TextBox() + Me.btnExecute = New System.Windows.Forms.Button() + Me.txtFileList = New System.Windows.Forms.TextBox() + Me.chkOverWriteOnDragDrop = New System.Windows.Forms.CheckBox() + Me.btnClearList = New System.Windows.Forms.Button() + Me.chkClearAfterExecute = New System.Windows.Forms.CheckBox() + Me.ToolTipMain = New System.Windows.Forms.ToolTip(Me.components) + Me.SuspendLayout() + ' + 'txtParams + ' + Me.txtParams.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtParams.Location = New System.Drawing.Point(12, 447) + Me.txtParams.Name = "txtParams" + Me.txtParams.Size = New System.Drawing.Size(402, 20) + Me.txtParams.TabIndex = 1 + Me.txtParams.Text = "%FILENAME 0" + ' + 'txtCmd + ' + Me.txtCmd.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtCmd.Location = New System.Drawing.Point(12, 421) + Me.txtCmd.Name = "txtCmd" + Me.txtCmd.Size = New System.Drawing.Size(402, 20) + Me.txtCmd.TabIndex = 2 + Me.txtCmd.Text = "trunc.exe" + ' + 'btnExecute + ' + Me.btnExecute.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnExecute.Location = New System.Drawing.Point(12, 473) + Me.btnExecute.Name = "btnExecute" + Me.btnExecute.Size = New System.Drawing.Size(402, 22) + Me.btnExecute.TabIndex = 3 + Me.btnExecute.Text = "&Execute" + Me.btnExecute.UseVisualStyleBackColor = True + ' + 'txtFileList + ' + Me.txtFileList.AllowDrop = True + Me.txtFileList.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ + Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.txtFileList.Location = New System.Drawing.Point(12, 12) + Me.txtFileList.Multiline = True + Me.txtFileList.Name = "txtFileList" + Me.txtFileList.ScrollBars = System.Windows.Forms.ScrollBars.Vertical + Me.txtFileList.Size = New System.Drawing.Size(402, 375) + Me.txtFileList.TabIndex = 4 + ' + 'chkOverWriteOnDragDrop + ' + Me.chkOverWriteOnDragDrop.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) + Me.chkOverWriteOnDragDrop.AutoSize = True + Me.chkOverWriteOnDragDrop.Location = New System.Drawing.Point(12, 397) + Me.chkOverWriteOnDragDrop.Name = "chkOverWriteOnDragDrop" + Me.chkOverWriteOnDragDrop.Size = New System.Drawing.Size(145, 17) + Me.chkOverWriteOnDragDrop.TabIndex = 5 + Me.chkOverWriteOnDragDrop.Text = "Clear &List on Drag && Drop" + Me.chkOverWriteOnDragDrop.UseVisualStyleBackColor = True + ' + 'btnClearList + ' + Me.btnClearList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.btnClearList.Location = New System.Drawing.Point(313, 393) + Me.btnClearList.Name = "btnClearList" + Me.btnClearList.Size = New System.Drawing.Size(101, 22) + Me.btnClearList.TabIndex = 6 + Me.btnClearList.Text = "&Clear List" + Me.btnClearList.UseVisualStyleBackColor = True + ' + 'chkClearAfterExecute + ' + Me.chkClearAfterExecute.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _ + Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) + Me.chkClearAfterExecute.AutoSize = True + Me.chkClearAfterExecute.Location = New System.Drawing.Point(176, 398) + Me.chkClearAfterExecute.Name = "chkClearAfterExecute" + Me.chkClearAfterExecute.Size = New System.Drawing.Size(117, 17) + Me.chkClearAfterExecute.TabIndex = 7 + Me.chkClearAfterExecute.Text = "Clear &After Execute" + Me.chkClearAfterExecute.UseVisualStyleBackColor = True + ' + 'frmMain + ' + Me.AllowDrop = True + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(426, 507) + Me.Controls.Add(Me.chkClearAfterExecute) + Me.Controls.Add(Me.btnClearList) + Me.Controls.Add(Me.chkOverWriteOnDragDrop) + Me.Controls.Add(Me.txtFileList) + Me.Controls.Add(Me.btnExecute) + Me.Controls.Add(Me.txtCmd) + Me.Controls.Add(Me.txtParams) + Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) + Me.Name = "frmMain" + Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen + Me.Text = "Execute Multiple Files" + Me.ResumeLayout(False) + Me.PerformLayout() + + End Sub + Friend WithEvents txtParams As TextBox + Friend WithEvents txtCmd As TextBox + Friend WithEvents btnExecute As Button + Friend WithEvents txtFileList As TextBox + Friend WithEvents chkOverWriteOnDragDrop As CheckBox + Friend WithEvents btnClearList As Button + Friend WithEvents chkClearAfterExecute As CheckBox + Friend WithEvents ToolTipMain As ToolTip +End Class diff --git a/frmMain.resx b/frmMain.resx new file mode 100644 index 0000000..84465f7 --- /dev/null +++ b/frmMain.resx @@ -0,0 +1,177 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 17, 17 + + + + + AAABAAQAMDAAAAAAIAAABAAARgAAACAgAAAAACAABQMAAEYEAAAYGAAAAAAgAD8CAABLBwAAEBAAAAAA + IAC5AQAAigkAAIlQTkcNChoKAAAADUlIRFIAAAAwAAAAMAgGAAAAVwL5hwAAA8dJREFUeAHtWQPM7kgU + PVPPM4N1bHPNcM1gjWht27ZtxsnGXMR8G6zt3d//P9XXmc1N2ry70y9f57FdnLo9nZw79/RW+B//4z8O + AYZXXn/lCGHMq8aYtYMU63nTwpjTTj31jPdRI7CieWXPPfZa63k+hoiqqtb98ON3rwDYMDYAo/W6DRs2 + IooiDBFFUeC7779ZD4YAFqampjB42AHY8P3hWcgYA611dwBEJFx4ySXI8xxDQBzHePShh0ibWwA0kfj1 + u27k+2lGI23BNOs1fzxn/Hmo99MABw5poXWnADiklBBCYOXyFVhYXESlK8ASbsCCoBGmxcFYDv4eIAjj + 21laVOBwshAhTVPEYYQ7brwVb773Nj78+CPkRUHViomwM2CJMla2sOUcQIDgnAHq9SYDhJvvuhVXXnwF + DjvoUNz94D1Is7zVo1w8sFkMxnLAOTCY3I5aShtN7tcAQSlFO1DkBZ59+XncfPX1WL5sBWZmZqki7EDf + 2xnw3K4BInCiTCSVVJx07PHYf5/9cNs9d2Jqegpxkuxw33NOqjJb2/gAqFe5hVSqEPo+1q5eg/MuuQBL + ShFnp/jesOwK4ZMmrtE9A7T+9IvPYaQ11eOd5nseYJblbhmggzwDaapa9Z6OhWEIwURpU9dqrbeb7znH + 84JGU4eFrCiTRLbqfRInePqRx+F5HhpUWuP8Sy7E3NzcdvM9byfLi0YX9MQM1P5ukCrVqvd0bzjlnDMg + jKiPUaNUqXLy53bzPef4frjZ4l3XAEciZatH+boAaA6PuHG8XX3P9+VFCYKzhVgGdvhzjgsnCCIQnCxk + Z2Bn1nveDu+4ohyhRreF7AzstHo/gRNEMdPXYSEOmcidWu+B8Y/o5ajiGt2rkEpVb77nnDBO3KuQfSfu + y/f8vFGladvdQvxZqC/fc06USNLENbpnoC/f82xVTJdxKaP8Wagv33NOLJeRpu4yqtkDG38W6sP33F5V + 3andNzIrgFSp3nzPOcmy5aRpyy2USNmb7zlHA+4WsjPQl+95gHLFCncLEZpnfSllb743/DymqdNCPANK + qd58zwNlGZhoIWFbaFkie/M972nTrkKCdrcC4BaifwRTf0yjFwhBE2qQFttCtFHxAAStN54syxLPP/MM + hgTrA28IQAMwPAM+YOaW1NLqX375BUPE4tIijDbzdQB5y0JffPbVddqYuwTESgwQxpiFTZs+uYP/nBRs + GQHYWE8RJw0IIwCUgR8AZNxCpj44DSAF4A00AA2grCfAEimYcIHhQteTsQNg24OHwUDwP/4Ce2/Un1jb + iBkAAAAASUVORK5CYIKJUE5HDQoaCgAAAA1JSERSAAAAIAAAACAIBgAAAHN6evQAAALMSURBVHgBxZZF + jzw3EMV/hh4IM3PybcLJNYynMCf3MDMzM36C/E/hexgvi8PU40pkqbQjq63R0uQteastv1evXltjAF55 + /ZXTjMirInIgC4CxdtWIXHD++Rd94WMBXjnxhJMOBMOCcNBvv//yCnCIB5AQDjr66GNoNpssAoPBgF9+ + /elgAK/Fv/76C2stxuyuCyJCCAGFn3kQya++7jpGoxG7gXq9zqMPPRS5KgUAkfyI449MVSNBEJFknfyE + oGuo2D8ajgDyAvTBpCwBaDYa9AeDhFQPD+SFhcq68mQFKAofy1x+0aV0u11eeeNVxAgicV9cx79o1xXO + VIicjMtqB0IIlQ48+vQT3HLNjZx71rm8+e5bKUElGXlHAIs+0yD6WUXGGHUg1q68+DLWW2u89+H7FK5A + zExXNicm70hZTpUj1kgdANSBeNArb7xGq9Pe1JxzzwmCsQ6A1AFCGgznEGNjAL3zOvNM5wF0PceR6VRA + Bcw6IEkGxpMJeogefv9d94AACF/u2cP7H3+YI8o65lwxuz8/gsI5YqcBtOtb7rgdYcNa7/3c5JOICEJ+ + BCiiA+XcrsjeA3lHfFFDUTGCxAFhZvZhS6lPw6iI9WwINQP5gzZtvRIW9UYSwkwGvPOZ1G/Nel1DJgMS + 0ntgknS1NevTer3ZzI8AwDkHsPHuM59MRTLPkYSjcgR6TY4n4/QWS7ramiMNX0SOdAToZmstAIXziJMt + koWMeAGIHPp/4oAK0Ldgflds0pFmraYCEgcSAd572OIrmAsjoA5Uh1AzUKvVaC2vs3UYMAbj4moW8eyq + e8CqHZ1OhxeefXZXPhkrcavVAtARWA94RFq9Xm9/EWF1dZXdxn9cSAjrgI8OfP3Nt/eX0+ktxph9WACC + SOeHb797ALAGqAGnAAcAlsUgAOvATx4ogd+BfwDDYiDABCiV0MSfxULiz/+NfwFezsTJD4m6VQAAAABJ + RU5ErkJggolQTkcNChoKAAAADUlIRFIAAAAYAAAAGAgGAAAA4Hc9+AAAAgZJREFUeAG1VQXS1jAU3DTp + JxfAnSvh7u56ANxtDHeHw2AjuLt7LY/utDMhtHj/ndn4k32VoKeh2Bw/eXSnzewCABrNINOB3jNhwqSl + Bpyl2YKhQ4brIAjQBKy1+t79O0y4CCAium/fvmgSt27fMOxNGRGPHz/G8lWrEEUR/gftdhvbNm8GfXoB + RAR03mdwX3Q6HXz9+hUoIVZ4pugzCysc5z2ZuTH76GtEX/UBiCRNMXvcRHz89AlHTh7junOQ0dA5o3OO + 3T6dqiJA6S/4MUBoDPYdPoC+vXtj3MjRMFrDBKSB5tjk1KagKenmIH6rYO702Xj5+jVOnjvjlaCatVT2 + ldJegFoFZy+exZHjR4vMNWkKBZWsC0Vu7hSIp0DEU/D67dsyK1Igfq29rEm3L9AmrC8RWSooMlAKFgE2 + rl0HcA5g+eqVsMqSrlwcKxdIfH+1z8DLcMnq5WWGLsufK7AI251fPgO/7v7bQnV+3Y2/TxK/DBAncc4E + cRz7jAq6eURW9olffQfuvdfVLOvn3tnffwdxnNS88+LVurrvznVbrWqJxFNgHKtZ/lJVGIa1CpQtF1p5 + 9FdPX+LPoaACDTIwIOjj+9dUcTnMI2ZpmuqD+/Y1dBfcYlUy+mYA8+bNm3NXrl0enTNAM7Bv3747S9+K + qgD0K/smEQN4zABkWPZNQgAk6Gl8A2KgXDouCDjOAAAAAElFTkSuQmCCiVBORw0KGgoAAAANSUhEUgAA + ABAAAAAQCAYAAAAf8/9hAAABgElEQVR4AaVQRbZVMRCsvFwLK8BHLAVbAq4j3J057jPcHYboJtAJNse+ + XXuSdH76Sb57nRPvqlQ1Zgpx78Gdi2RoOwCJqcHIirwibt+5qZcuWS6FEJgKrLV49/61Dowx8vv379h7 + 4ABqtRomgziOcf7MGWhtAhYAETEZ8xctRJIkKMsSxPeGwO/Wra2zBZFB2puBOTy8AIOJm9duQJqmuH7n + FkjzmxsdAU0w7sxgDnMrhgich6GUwvW7tzB3zhysX7kGibOqosStPBTYnYqV70FLYJCDIi+wYeVa/Pnz + Fzfv3Ubuzlmeu5VHhjxrDe+AI9AggTiJ8eTlM/T29oJ/twGxfW+3E6VWa/i7YKiDHFlfCi46f/JsO5rF + 1h3bPZnXIIzgBQb1gLP6rh8+fsR3XSUJE70LbVocGuaAs/pfOqu3PmiN1SzfAy8QRRGyrhSjQaACKXkA + DK71EZwVo7WWN69dw1Tw69dPGEM6AOyVz18/7vj05aPEFCAEjBDyCmaKflMqZJV2iZSeAAAAAElFTkSu + QmCC + + + \ No newline at end of file diff --git a/frmMain.vb b/frmMain.vb new file mode 100644 index 0000000..0c9b8b1 --- /dev/null +++ b/frmMain.vb @@ -0,0 +1,62 @@ +Imports System.ComponentModel + +Public Class frmMain + + Private Sub txtFileList_DragDrop(sender As Object, e As DragEventArgs) Handles txtFileList.DragDrop + Dim files() As String = e.Data.GetData(DataFormats.FileDrop) + + If chkOverWriteOnDragDrop.Checked Then txtFileList.Clear() + + For Each path In files + txtFileList.Text += path + vbNewLine + Next + + End Sub + + Private Sub txtFileList_DragEnter(sender As Object, e As DragEventArgs) Handles txtFileList.DragEnter + If e.Data.GetDataPresent(DataFormats.FileDrop) Then + e.Effect = DragDropEffects.Copy + End If + End Sub + + Private Sub BtnExecute_Click(sender As Object, e As EventArgs) Handles btnExecute.Click + For Each s As String In txtFileList.Lines + If System.IO.File.Exists(s) Then 'Check file exists (or has been created, if reading from GW) + If txtCmd.Text.Trim <> "" Then 'Check script exists + System.Diagnostics.Process.Start(txtCmd.Text.Trim, txtParams.Text.Replace("%FILENAME", ControlChars.Quote + s + ControlChars.Quote)) + End If + End If + Next + If chkClearAfterExecute.Checked Then txtFileList.Clear() + End Sub + + Private Sub BtnClearList_Click(sender As Object, e As EventArgs) Handles btnClearList.Click + txtFileList.Clear() + End Sub + + Private Sub frmMain_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing + My.Settings.CleafAfterExec = chkClearAfterExecute.Checked + My.Settings.ClearAfterDrag = chkOverWriteOnDragDrop.Checked + My.Settings.Exec = txtCmd.Text + My.Settings.Param = txtParams.Text + My.Settings.List = txtFileList.Text + End Sub + + Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles Me.Load + chkClearAfterExecute.Checked = My.Settings.CleafAfterExec + chkOverWriteOnDragDrop.Checked = My.Settings.ClearAfterDrag + txtCmd.Text = My.Settings.Exec + txtParams.Text = My.Settings.Param + txtFileList.Text = My.Settings.List + + ToolTipMain.SetToolTip(txtParams, "Place command line arguments here. %FILENAME is the variable for the files in the list above.") + ToolTipMain.SetToolTip(txtCmd, "Command to execute. Command line may include spaces etc.") + ToolTipMain.SetToolTip(btnClearList, "Clear the list now.") + ToolTipMain.SetToolTip(btnExecute, "Execute the command in the command box.") + ToolTipMain.SetToolTip(chkClearAfterExecute, "Clear the list after execution.") + ToolTipMain.SetToolTip(chkOverWriteOnDragDrop, "Clear the list as you drag and drop in new files. Only useful to batches. Usually leave unticked.") + ToolTipMain.SetToolTip(txtFileList, "Drag and drop files here to process. Can also paste in a list of files eg from a text editor etc.") + + txtFileList.Focus() + End Sub +End Class diff --git a/utilities-terminal.ico b/utilities-terminal.ico new file mode 100644 index 0000000000000000000000000000000000000000..3406eced013f6241307bf23717cabd4b5339132e GIT binary patch literal 2883 zcmai$c{~(a8^_NW%QTpVWD8BBi$aEpvNMgPLUoPoW|St+yNsPE?o1i``cAj^kN1!F^SS4bbDrPxoOAwop6B~H2LK4*1{e(B3>4s)!1$NN zF@I?uC`WUA;^M!xJ{JI|`2av7f9nbe05^955P#OfL=Y|s=XeEAn&SWDtiNu=z<4>c zHP>1!0MHL7@rHyT$ltcmR;H6lTeo0*}#vUq-V|IVa70up2GM4g5?w-z<0l|_lnk-OigbzA5z zC9Is2EqzM9)SAY(Dtg{>s`B|p|`mzJ7r|pdo#WiONv)J|F(2m${>6!1M+=I4tgV< zRk_#NDTD{1J$sh1HKuF&y1F;VL8sJKp!r(8CMJ!MXm@I#IkO)a9x~ECJH?X~x<+P% zEG^m8UgdFhbuB>88;lM~{9w=^XrHHM2U7_d{_{TvsE@aNhI9ijTn>i&-ktXu^|L5c zvmaUo`PLQDghJ%HULVaVihZO4oIWMwmbW@mIu9RDk)wUqg}&Kdyw&0SOuct9^D9M$ zbbs1QB0EY4>QQL7l$99m3~Ru9SoU8oDNkok35UUv@n7OwbvAD_;^q7w3x&gBpat}V=PHqESt zy&Ifx><1?3OGPGYmB1a5^v<{1F|=c4+Gtng>u4L^>#Kf={PHj~GDFG5jpWux89}h# zJ(YT5Tpm3yF#jf4KVlDFwY%T>0OH}tOgmP@&!pMu{0Yh7qC2OoylZDNFcyrWJE8K- zmX*!wbI(17hH;y=`6`^m+%xT>t5>>ZtBkU*TA4lYJ(Tm`fYO8HT&7y#Aaoy9^n2q9 z!^vv6VECAtVmP5-B&0+0)2r!c9xclEOb0osFo7~fUtv2Ru*l)pn&5%_LXX@+4_)%E zJ+`TnThNWufu8zx26{;%&HaG0y}K=%!q#PZbklH=*UP!aM4wW*EvaTXVlcx!m+y!U z;ohA43Ajs+Whu1?cj&VPVz}p^-Y^3wMhB`#`g*^o>pL-Qjpqb?q6?j%!43fA7925T zxi{cTS`|0_lmN0hE!sR?uOezEL*%LiWWeT(kh~yF7Tk;24_p|yT)pFhD4sFFqd+jb zSiWBPP?}G~IIchCC6qK2729C&Lw}o#;@$JuW++aALpC^RWPzvQNRj`Ce-tN-`iFnN z;NV37xLSYn-*n$7N#_`{i5epV!}=|FzW=12kcW|9!CEQ{wvDO^E7@m4hD&SOh$fs zQOnda&Jn7L2(D?**{v&5ahL}rZ^lg~nOVsiB9mP*H*aKL$sf>{Oau#Diw)0|AnqEH zi+oWx2)lPrMMwWtx!}U10N>x@5cc`Gf0d&XdD4mwL;DgPKGeDQ?`jGt$J0h&;CmF%J_x|&7jrH zT0>rrWom1YD%)o&4SFJiIu*UEjf=WRdNTYvc16BKg!e#jk^(cxix)u+TZ?Tr1M%1W zko=8cz|*RQI?3CdvMV@FCTz!XB^4Gzj`Eg5EVd~JeC=JgV zVbLXH;rC{|)$E5o-fh8-C*+{QT@=z?|1$Nt?%5$}f*(1&R1Xf9_e=E6O069hahfH##8*5+}7zod}0_mXpG)uXZK7mgI5? z^9e&nC<7CUY5cO;2tw>x?AfATcjXta1H>`BlM|Okf6fIy8La$rvNhtaj z^>TFz+3XI&+toOEQ-z!Z0#b*YsSc*Fx$q=J$W~kV%7gB2%FSt^HXzb;Cf2)-0!n%F zA$fog+;2jGx%x9Q3K63bRM2<<1z-{05w4QY7uh6Y3M-2NkOK16>l>5#4Uy$T1; z2j$LU`4y#RbRSlzZp>c66PF-y2hCL}41CDu;w}>lnaN7OJD)o>bNmvA^)d_52H#Xx zRSnz)mZkN=YilSM86Q7m>>9bBMSLBY>dDPM^zADutcb*191L1pSGUO0o=nYtR7O}% z?Q#mY<8f2TYD%6oxz(!f0q03A<~QodfOjwjh%f@&Dl?Bqs2!B?|Y*45+D_o$6! zb$>C&1uM06SHS+-mhNXwbCk)%8emH~HPAjidb1ELDsIRLL4#U>i_Nk*4ji2I2!US6 zcF;NkJKp{;?epuGh5V;|_Oo}K0f2=6ZlC98jowR{iuX79^R$! z*Xy+XdSUcH$3J%Msp0pulal<(@e#F(%JtlD_bQD-RX8-fqKV`fW^)}P0|DBSP{!Vz zvirwgI5rY~%=MoUKcNNYQ#*+I%+cfA>AdDtcOdi=et|1I2q0QQ6< A$^ZZW literal 0 HcmV?d00001