..

ArinWarev1/Forms_Basic/frm_batch.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
-Partial Class frm_Macro
+Partial Class frm_batch
     Inherits System.Windows.Forms.Form
 
     'Form은 Dispose를 재정의하여 구성 요소 목록을 정리합니다.
@@ -26,6 +26,7 @@ Partial Class frm_Macro
         Me.btPath = New System.Windows.Forms.Button()
         Me.btcalc = New System.Windows.Forms.Button()
         Me.prb1 = New System.Windows.Forms.ProgressBar()
+        Me.chkMyoun = New System.Windows.Forms.CheckBox()
         Me.SuspendLayout()
         '
         'tbPath
@@ -62,17 +63,28 @@ Partial Class frm_Macro
         Me.prb1.Size = New System.Drawing.Size(750, 25)
         Me.prb1.TabIndex = 4
         '
-        'frm_Macro
+        'chkMyoun
+        '
+        Me.chkMyoun.AutoSize = True
+        Me.chkMyoun.Location = New System.Drawing.Point(449, 12)
+        Me.chkMyoun.Name = "chkMyoun"
+        Me.chkMyoun.Size = New System.Drawing.Size(88, 16)
+        Me.chkMyoun.TabIndex = 5
+        Me.chkMyoun.Text = "입력면 추출"
+        Me.chkMyoun.UseVisualStyleBackColor = True
+        '
+        'frm_batch
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 12.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(750, 171)
+        Me.Controls.Add(Me.chkMyoun)
         Me.Controls.Add(Me.prb1)
         Me.Controls.Add(Me.btcalc)
         Me.Controls.Add(Me.btPath)
         Me.Controls.Add(Me.tbPath)
-        Me.Name = "frm_Macro"
-        Me.Text = "frm_Macro"
+        Me.Name = "frm_batch"
+        Me.Text = "frm_batch"
         Me.ResumeLayout(False)
         Me.PerformLayout()
 
@@ -81,4 +93,5 @@ Partial Class frm_Macro
     Friend WithEvents btcalc As System.Windows.Forms.Button
     Friend WithEvents prb1 As System.Windows.Forms.ProgressBar
     Public WithEvents tbPath As System.Windows.Forms.TextBox
+    Public WithEvents chkMyoun As System.Windows.Forms.CheckBox
 End Class

ArinWarev1/Forms_Basic/frm_batch.vb

@@ -1,4 +1,4 @@
-Public Class frm_Macro
+Public Class frm_batch
 
     Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles btPath.Click
         Dim fd As New FolderBrowserDialog()
@@ -17,10 +17,10 @@
 
         Dim files1() As System.IO.FileInfo
         Dim files2() As System.IO.FileInfo
-        
-            files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
-            files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
-       
+
+        files1 = di.GetFiles("*.tpl", IO.SearchOption.TopDirectoryOnly)
+        files2 = di.GetFiles("*.tplx", IO.SearchOption.TopDirectoryOnly)
+
         If files1.Length < 1 AndAlso files2.Length < 1 Then
             MsgBox("no file")
             Return